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GROS PLAN 
SUR PASCAL 
& 


SEIZE ORDINATEURS 


A L'ÉPREUVE 


Leur Basic soumis 
aux dix tests de LIST 


DANS LA 
MEMOIRE 
Compilateur et 
interpréteur, des alliés 
objectifs 
Basic du TRS-Coco2 et 
de l’Atari 800XL 
B Assembleur sur T07, 
pour programmer le 6809 
Récursivité : 
le Basic y vient 


ICE 


Belgique : 154 FB - Canada : 295$C - Suisse :6FS 


Chez Duriez : 15 micros 


portatifs +9 domestiques 


Super branchés (pas d'angoisse 1) 


ATARI, CANON, CASIO, COMMO- 
DORE, HEWLETT PACKARD, 


ORIC, 


SHARP, 


Avez-vous 


vu les 


SINCLAIR, 
THOMSON. 


Charter: Duriez ? 


valables jusqu'au 20 Novembre 


ATARI 
600 XL Péritel . .. .. 1990 
800 XL Péritel .... . 2490 
Magnéto . -... 426 
Lecteur de disquette ....2754 
Imprimante courrier . 3229 
Traceur 4 couleurs. 854 
Manette de jeu .. 120 


A AARARARÉ 


2 
Machines * 
- La e 
aecrire 
+ Photocopieurs 
+ Répondeurs 
téléphoniques 
+ Calculatrices 
+ Papeterie 
“etc... 

Demandez le 
nouveau 


catalogue 
général 
Duriez 


contre 3 timbres 
à2,10F. 


[! Duriez, 
112et 132 

bld St-Germain 
75006 Paris 
(M° Odéon, St- 
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CANON 


X07 mémoire 8K . .. 1940 
Traceur 4 coul. X710.... 1850 
X07 + X710.......... 3750 
Extension BK . 750 
Carte mém. 4K XM100 . 412 
Carte mémoire 8K XM101 850 


Cordon magnéto...... 65 


Coupleur optique ..... 470 
Inter. RS232 + cordon 725 
Cordons imp. parallèle . 295 
Seclobr. 2 arret 82 
Carte Fichiers .. s 530 
Corte Graphique .. 530 
Cassette Stat ... 298 
Cassette Graph. . 298 
Cassette Text .. . 298 
Interface video ....... 2380 


PB700 4: dou 
Traceur 4 coul. FA10. 
PB700+FA10.... 
Extension 4KO R4.. 
FASPAe MERE CMI. 
Interface FA4 . 

Ex /02P .. : 
Interface magnéto FA2 


Imprimante FP 10 610 
Fx 750. -1550 
FA 20 … -1150 


Carte 4 Ko .. 600 
FP 200 2990 
Extension 8K .,...... 623 
Cordon magnéto..... 85 
Traceur 4 coul. -.. 2280 
Lecteur de disquettes . . 4430 
Clavier numérique 512 
Secteur... 225 
Cordon impri. parallèle | 390 
Extension CETL (ROM) 809 
AMSTRAD 

CPC 464 + moniteur vert . 2990 
CPC 464 + moniteur 

couleur . 4490 

COMMODORE 

Commodore 64 Pal..... 2750 
Commodore 64 Péritel... 3450 


PERIPHERIQUES VIC20 et C64 


Lecteur de cassettes. ,... 465 
Lecteur de disque 1541 .. 3380 
Imprim. 50 cps MPS801 . 2690 
Traceur 4 couleurs. ... 1995 
Interface RS232C .... 345 
Manette de jeu ., 120 
Crayon lumineux 475 
LOGICIEL VIC 20 
Super expender 430 
Programmer's aid . 350 
Screen Master .. 415 
VIC Forth 800 
LOGICIEL C64 
Utilitaire 
TOOL 64 (cart} 640 
Master {disq) . 950 
64 Forth (cart) 588 
Zoom Pascal (disa) -2 456 
HES MON 64 {cart) .. 390 
Professionnel 
HES Writer (cart) . .. 329 
Omnicalc (cart) ..... 329 
Stat 64 {cart} .... 490 
Graph 64 {cart} . 380 
Multiplan (disq) ....... 1100 
Vizawriter (disq} . .... 1355 
Super Base 64 (disq) .... 1190 
Educatit 
Turtle graphic (cart). .... 588 
Paint brush (cart) 223 
Sinthy 64 (K7] 326 
Turtle Toyland (disql .... 338 
Coco (disq}... : 440 
Jeux 
Choplifter (cart) . -. 495 
Lode Runner (cart). ..... 495 
Attack of Mutant Camel 
(cart) ...... " 384 
Laser Zone cart] . 236 
Gridrunner (cart). Sade 170 
Rootintootin {cart} ..... 236 
Omegarace (rart) . 215 
Space rescue (dis di. 495 
Speed Bingo (cart) ..... 215 
Clowns (cart) ......... 215 
Kickman {cant] ........ 215 
Sea Wolf (cart) .…. 215 


300 prix 


U CŒUR DU QUAR- 


TIER LATIN, Duriez 


vend en magasin et par 
poste à prix charter. © 


Il publie régulièrement 
bancs d'essai 
gues condensés de caracté- 
ristiques techniques préci- 
ses, sans délayage publici- 
taire, 


et Catalo- 


complétés par des 


appréciations et des tests 
Duriez sans complaisance. 


Ce banc d'essai est gra- 


tuit en magasin, ou envoyé 
par poste contre 3 timbres 
à 2,10 Frs. 


Jupiter Lander {cart} . 215 
Radar rat race (cart) . 215 
Echec Grand Master Wei ° 305 
Kong (K7} ....... 125 
Scremble {K7] use 125 
Motor Mania [K7) .... 165 
MTNT (cart) 329 
Benii (cart) . 236 
The Pit (cart) 329 
EPSON 
RAD sisi 10300 
Extension mémoire 60K 
3300 
Extension mémoire 120K 
4660 
HX 20 : 5800 
Magnéto intégré 1100 
Extension 16K 1200 
Modem + cordon 1755 
Cassette Intext 780 
HEWLETT-PACKARD 
HP II 810 
HP 15C 1235 
HP 12C 1235 
HP 16C 1235 
HP 41CV 2190 
HP41CX... 2880 
HP 71 5100 
Extension mémoire 4K . 784 
Lecteur de cartes 
magnétiques . 1634 
Interface . 1318 
Lecteur de cartes 1850 
Lecteur optique 1190 
Imprimante 82 143 3690 
Accus rechargeables 390 
Chargeur 155 
40 cartes magnétiques 239 
Papier therm. noir (6b.] 120 
Mémoire quadruple 809 
Module X fonction 809 
Module temps . 809 
Module mémoire tampon 809 
PERIPHERIQUES HPIL 
Module HPIL pour HP41 1348 
Lecteur de cassette digit. , 4770 
Imprim. thermique HPIL 4770 


= me CU D AN OS OU 


POUR 
CHOISIR, pen- 
sez 2 fois. 

1° Les perfor- 
mances de 
l'appareil ? 

2° Les perfor- 
mances des pro- 
grammes dispo- 
nibles ? 

Duriez fait des 
sélections pour 
vous éviter des 
regrets. Vous 
êtes tranquille. 


Interface TV 3450 
Interface moniteur 2290 
10 mini cassettes digit 990 
OLIVETTI 
M10 mémoire 8K 5200 
M 10 mémoire 24K 6990 
Traceur 4 coul 2090 
Secteur 98 
Cordon imp. parallèle 199 
Cordon imp. RS 232 498 
ORIC ATMOS 
Oric Atmos 48 K 2250 
Cordon Péritel + alimentation 
MAN - intimes ummeeense 95 
Traceur 4 coul. + cordon. 1510 
Cordon magnéto [jack] 45 
Cordon imp. barallle 150 
Modulateur noir et blanc 210 
Modulateur coul. SECAM 530 
Lecteur de disquettes 3° . 3600 


disquette 3°° 69 
Aigle d'or (K7] 


. 180 
Categoic {K7) 95 
Xenon (K7) 120 
Zorgon (K7) 120 
Hobit_(K7) 249 
Forth (K7) 180 
Anglais Assimil {K7) 440 
Author (K7) 187 
Orie Calc (K7) 187 
Poly Fichier 180 

SHARP 
PC 1500 À 2065 
Traceur 4 coul, CE 150 1990 
PC 1500 À + CE 150 3990 
Extension 8K CE 155 790 
Ext. 8K Protégée CE 159. 1000 
Ext. 16K Protégée CE 161 1700 
Interf. RS232/Parallèle 1990 
Cable imp. parallèle 480 
Clavier sensitif 1265 
PRCT257 5 scies 1085 
PC 1245 540 
PC 1407: 1060 
PC 1260. 1580 
PC 1261.22: ... 2065 
Interface magnéto 169 
Imprimante CE 126P 790 
Imp. + magnéto CE 125 . 1695 
SINCLAIR 

ZxX81 580 
Extension 16K 360 
Spectrum 48K Péritel 2325 
Spectrum 48K Pal 1965 
Interface Péritel 360 


TEXAS INSTRUMENTS 


LOGICIEL 
Jawbreaker Il (cart) . 190 
Othello {cart} 188 
Mash {cart).......... 190 
The Attack (cart) 134 
Star Trek (cart) ....... 190 
Return to Pirate | (cart) .. 190 
Tombstone City {cart} 188 
Super Demon Attack (cart) 190 
Tl Invaders (cart) 188 


Hopper (cart) ..... 190 

Mind Challenger {cart) 134 

Burger Time {cart} ...... 190 
THOMSON 

MOSS 


TO7-70 
Lecteur K7 
Extension 64K 


Contrôleur de communic. 850 
Manettes jeux et son 580 
Lecteur dis. avec cont 3596 
Memo Basic 480 
Cordon imp 290 
Interface SECAM 530 
LOGICIELS TO7 
Basic vol. | 195 
Basic vol. 2 195 
Basic vol. 3 195 
Basic vol. 4 195 
Basic vol. 5. 195 
Basic vol. 6 195 
Atomium 350 
Echo 260 
Survivor 350 
Logicod 295 
Gemini 260 
Crypto 295 
Motus 295 
Tridi 260 
Trap 375 
Pictor 495 
Melodia 495 
Sauterelle 125 
Compléments et mult 120 
Carré magique 175 
Horloge 125 
Encadrement 120 
Carotte malicieuse 175 
Diététique 175 
Allemand vol. 1 195 
Allemand vol. 2 2 195 
Mots croisés | 195 
Mots croisés 2 195 
Budget familial 450 
Carnet d'adresses 480 
Gérer vos fichiers 525 
Ronde des chiffres 125 
Noix de coco 145 
Carte de France 145 
Mots en fleurs 185 
Bibliothèque 490 
Coktail 1 95 
Coktail 2 95 
Coktail 3 95 
Calculatrice 360 
Agenda 490 
Portefeuille boursier 580 
Mélimélo 437 
Clé des champs 170 
Quest (ROM) 325 
Quest histoire géographie 66 
Quest sport 66 
Quest sciences 66 
Signes dans l'espace 175 
Système métrique 150 
Pickman 120 
Stock car 120 
Yoms 179 
Loto 128 
Ronde des formes 148 


Média Conseil 


- Je commande à Duriez : 2.5 6ema0. 75006 ans 


D 1 Catalogue Duriez 
Micros" (essais comparatifs 
des 20 micro-ordinateurs les 
plus vendus chez Duriez) con- 
tre 3 timbres à 2,10F. 


[I] 1 Catalogue général 
Duriez (Calculatrices, Machi- 
nes à écrire, Répondeurs, Pho- 
tocopieurs, Classeurs, Dic- 
teurs, Papeterie, etc...) contre 
3 timbres à 2F10. 


Le(s) article(s) entouré(s) 
sur cette page photocopiée (ou 
cités ci-dessous). 
 Ci-joint chèque de .......... 


y compris Port et Emballage 
40 F. 
D Je 


paierai à réception 


(Contre-Remboursement) 
moyennant un supplément de 
30 F +4 40 F 
Emballage. 


Port et 


L1S 


Si changement de prix, 
je serai avisé avant 3 


expédition. 

Mes Nom, Prénoms, 
Adresse (N°, Rue, Code, 
Ville) : 


[s Pascal UCSD sur Apple I! 


; 


par Jacques Rouault - 

et Patrice Girard 

Tome 1 : 232 pages - 110,00 FF 
Tome 2 : 168 pages - 90,00 FF 
L'ordinateur Apple Il, le langage 
Pascal et le système d'exploita- 
tion UCSD forment à eux seuls 
le plus petit ensemble de micro- 
informatique professionnelle. 

Le tome 1 étudie ces trois élé- 
ments, les programmes de mise 
en route, les types et instructions 
Pascal UCSD. Le tome 2 aborde 
les instructions propres à l'Apple 
H (graphiques, musique, manet- 
tes...) ou permettant une exten- 
sion de l’architesture de la pro- 
grammation (structure en blocs, 
chainage...), les procédures de 
l'unité Applestuff et chainstuff, 
les manipulations d'octets, les 
problèmes de l'analyse. Des exer- 
cices clôturent le second tome, 
qui constitue un véritable support 
de cours pour la formation per- 
manente. 


Les bases de données 

sur Apple 1! 

par Michel Keller 

144 pages - 85,00 FF 

L'objet de cet ouvrage est d'aider 
le lecteur à faire un choix parmi 
les nombreux logiciels existants 
sur Apple. Quatre de ces Er 
ciels sont sélectionnés ici : PFS 
et PFS/Report - DB Master - CX 
BASE 200 - DBASE Il. Pour cha- 
cun, on trouve une description 
détaillée du logiciel lui-même et 
de ses procédures de mise en 
route, de création de fichier, de 
saisie des données, de mainte- 
nance et d'édition. L'auteur ter- 
mine cette étude par l'exposé des 
avantages et des inconvénients 
inhérents à chaque logiciel. 


MS-D0S Le à pas 
par Alain Pinaud 

120 pages - 80,00 FF 

Le but de cet ouvrage est de faire 
découvrir au lecteur les com- 
mandes du système d’exploita- 
tion MS-DOS en les pratiquant. 
S'appuyant sur une méthode 
pédagogique pratique, il aborde 
les différentes commandes par 
niveaux de compréhension. 
Après la définition du système 
d'exploitation, sont vues les com- 
mandes essentielles, les exten- 
sions de la version 2 de MS-DOS 
(introduite sous le nom de PC- 
DOS 2) et les logiciels d'accom- 
pagnement. 

Le niveau de connaissances re- 
quises est réduit, le lecteur doit 
cependant être familiarisé avec 
les principaux termes touchant à 
l'exploitation de l'ordinateur. 


CP/M pas à pas 

par Alain Pinaud 

128 pages - 80,00 FF 

“CP/M pas à pas’' s'adresse aux 
possesseurs d'ordinateur indivi- 
duel munis de CP/M, désireux 
d'apprendre à utiliser ce système 
d'exploitation de disquette. 


PSI, 1” DE CORDÉE! 


8 guides pratiques PSI 


qui vous permettront d'aborder les utilisations spécifiques 
de votre ordinateur et vous aideront à comprendre des 


sujets parfois ardus, si vous avez déjà une certaine 


connaissance de l'informatique. 


Lisp sur Apple Il 

par Nicole Bréaud-Pouliquen 
112 pages - 80,00 FF 
Description concrète et progres- 
sive de la programmation en lan- 
gage LISP sur l'ordinateur Apple 
Il, ce livre démystifie et met en 
évidence la puissance à l'expres- 
sion de ce langage. De nombreux 
exercices et la présentation 
d'exemples complexes appliqués 
à la gestion des listes, l'analyse 
grammaticale et l'élaboration de 
dessins récursifs complètent cet 
exposé. 


Basic système et langage 
machine du PC 1500/A 
VOYAGE à l’intérieur du Sharp 
par Jean-Christophe Krust 

168 pages - 90,00 FF 

Une première initiation au lan- 
gage Basic est tout ce qui est 
nécessaire au lecteur pour abor- 
der cet ouvrage sur l'ordinateur 
Sharp PC 1500/A ou Tandy PC 2. 
Tous les mécanismes secrets de 
la machine soit dévoilés pour 
permettre au lecteur d'utiliser 
toutes les possibilités du Sharp. 
Le débutant trouvera aussi tout 
ce qu'il faut pour faire ses pre- 
miers pas de programmeur en 
langage machine. L'ouvrage 
comporte : des informations sur 
la structure logicielle interne de 
l'ordinateur (codages, langage 
machine) et des programmes 
utilitaires mettant en œuvre ces 
informations à la fois comme 
méthodes de programmation et 
comme matière à travailler. 


Le Basic des MO5 et TO7/70 
par Gilles Blanchard 

160 pages - 90,00 FF 
Les deux premiers chapitres de 
cet ouvrage sur les ordinateurs 
MOS5 et TO7/70 sont consacrés à 
la présentation et à la manipula- 
tion des claviers de chacun de ces 
matériels et dé leurs périphéri- 
ques. On passe ensuite à l'étude 
des variahles numériques et al- 
phanumériques. Le. Chapitre 4 
traite des graphiques et de la 
couleur, pour lesquels le TO7/70 
et le MOS ont des capacités re- 
marquables. Le lecteur apprend 
ensuite à écrire un programme, à 
le modifier puis à communiquer 


SYSTEME ET 
_ LANGAGE 
MACHINE 


VOYAGE À L'INTERIEUR DU 
SHARP. PC-1590/À 


IC, 


avec des organes extérieurs 
(imprimante, lecteur-enregistreur 
de programmes). Enfin, après 
une description des Rate 
différences entre T07/70 et 
MOS, le chapitre 8 donne le ré- 


pertoire des fonctions et instruc- 
tions du Basic sur ces 
ordinateurs. Dés annexes utiles 


viennent compléter : l'ouvrage 
codes d'erreur, codes. ASCII, 

ions des caractères spé- 
ciaux). 
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1 COUVERTURE 

En direct de Canal LIST, un 
jeune “branché” nous 
présente gaiement les 
Programmes du mois. Une 
réalisation de José Santos. 


ü À VOS CLAVIERS 


1 4 LA GAZETTE DE 


LIST 


2 0 PARAMÉTREZ, 


VOUS DIS-JE... 

Quand le tracé d'une ligne 
devient un problème, une 
solution se trouve dans les 
paramètres. 


2 3 POUSSIÈRES DE 


MÉMOIRE 

La mémoire ne vide pas 
toujours ses poubelles. 
Aïdons-la, elle nous en sera 
reconnaissante, 


LIST - PAGE 4 


ie 2 6 L'HISTOIRE DES 


LANGAGES : PASCAL 
Récursivité, lisibilité, 
maintenance aisée sont les 
qualités essentielles de 
Pascal, La conception de ce 
langage répondait à des 
besoins précis. 


2 9 DÉCIMAL- 


HEXADÉCIMAL, UNE TABLE 
Pouvoir sortir sur imprimante 
une table de conversion 
décimal-hexadécimal pour en 
avoir toujours un exemplaire, 
c'est pas ça le bonheur ? 


3 1 INTERPRÉTEUR ET 


COMPILATEUR 

La traduction du langage 
évolué au langage-machine 
passe soit par un 
compilateur, soit par un 
interpréteur. Chacun possède 
ses avantages et ses 
inconvénients. Pour y voir 
plus clair. 


ä 4 LE BASIC DES 


ATARI 600 ET 800 XL 

Ce Basic facile à apprendre 
dispose de nombreux atouts. 
Quant au contenu de ses 
variables alphanumériques, il 
n'est limité que par la taille 
de la mémoire (16 Ko pour le 
600 XL, 64 Ko pour le 

800 XL). 


3 / LA CYCLOÏDE, 


RÉPONSE À UNE ILLUSION 


‘Une pièce roule et on croit se 


trouver devant deux cercles 
de rayon différent et de 
même circonférence. Mais 
notre imagination ne connaît 
pas encore la cycloide. 


4 4 MISEZ P'TIT : 


OPTIMISEZ 

Sus aux “millisecondes”, haro 
sur les octets perdus ! Un 
nouveau défi (HP-41 C) est 
lancé, accompagné des 
résultats du précédent. 


4 6 LE BASIC DU 


Coco 2 

Le TRS-80 Couleurs, deuxième 
version, s'appelle aussi Tandy 
Colour Computer. D'où son 
surnom : Coco 2. Il possède 
d'intéressantes possibilités 
graphiques. 


3 9 LES COUPS D'ŒIL DE LIST 


39 “TURBO PASCAL'’ SUR CP/M OU MS/DOS 

Testé ici sur un Apple II muni d'une carte Z80, ce vrai 
compilateur traduit directement en langage-machine les 
programmes écrits en Pascal. Quelle rapidité ! 


41 “DRAGBUG’' POUR DRAGON 52 
Un moniteur-désassembleur pour ceux qui souhaitent 
programmer en Assembleur sur Dragon. Efficace. 


42 “ASSEMBLEUR" POUR TO7 ET TO7/70 
Assemblez, assemblez, il en restera toujours quelque 
chose. Le TO7 peut, lui aussi, être programmé en 


Assembleur. 


43 “CHOPIN ET “GÉNÉCAR" POUR LYNX 
Deux programmes sur une cassette pour créer des 
mélodies ou de nouveaux caractères. À la portée de tous. 
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Re osier | 


49 PASCAL, 


CONVERSION DE CHAÎNES 
Les chaînes de caractères 
sont parfois des nombres. 
Mais si la variable qui les 
contient n'est pas une 


L] 6 RÉCURSIVITÉ, LE 


BASIC Y VIENT... 

En devenant récursif, le Basic 
acquiert une qualité qui doit 

rendre jaloux certains autres 

langages. 


N° 4 - NOVEMBRE 1984 


SOMMAIRE 


64 LES DIX TESTS DE 


variable numérique, le 
nombre n'est pas reconnu. 
Une conversion s'impose. Ici, 
en Pascal. 


Le] 0 BALISTIQUE SUR 


PB-700 

Une équation de balistique 
(science du mouvement 
d'objets soumis à la 
gravitation) devient un jeu, 
sur le PB-700. 


pe] 3 ORGANISATION 


DES DISQUETTES DU C.64 
La piste “directory” des 
disquettes Commodore mérite 
une attention particulière : 
elle est centrale et limite les 
déplacements de la tête de 
lecture/écriture. 


58 


LOGO 
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4 N° 4 - NOVEMBRE 84 


VINGT DÉCIMALES 

Les tables compliquées 
deviennent inutiles pour 
calculer des logarithmes. Un 
bon programme, et 
l'ordinateur travaille pour 
nous. Il trouve même vingt 
décimales. 


62 DIALOGUE AVEC 


Une petite conversation avec 
son ordinateur est possible 
en Logo, si l'on ne commet 
pas d'erreur. 


LIST 

Seize ordinateurs, de l'Apple 
Il au ZX Spectrum (classés 
dans l'ordre alphabétique), 
ont subi les dix tests de LIST. 
Attention de ne comparer que 
ce qui est comparable. 


66 BASIC APPELLE 


LANGAGE-MACHINE 

Sur l'Apple IL, certains 
programmes Basic doivent 
faire appel à de petits 
programmes en Assembleur : 
‘on à toujours besoin d'un 


07 


plus petit que soi”. 


/ 0 PROGRAMMATION 


SYNTHÉTIQUE 


LOGARITHMES À 


HP-41C : où est quoi, quoi est 


où ? La métaphysique 
synthétique... 


Illustrations : Boredom, Philippe Burel, Cannella, Cathe. 
rine Dubreuil, Frapar, Paul Gendrot, Bernard Helme, Fabien 
Lacaf, Alain Mangin, Alain Prigent, José Santos, Nicolas 
Spinga, Eric Théocharidès. 
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MALICES 

Prenez un programme et 
retirez-en les astuces, des 
plus grossières aux plus 
subtiles. Que reste-t-il ? Rien. 
Dans ce numéro, des ficelles 
pour Alice, C.64, DAI 48K, 
MOS, Oric, PC-1211, 1251, 
1500, TO7, TRS-80. 
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Exercez votre logique et votre 
ingéniosité pour résoudre 
quelques petits problèmes 
simples en apparence. 
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Bienvenus 


N compensation d’un 

abonnement souscrit à la 
revue Trace, je compte désor- 
mais parmi vos lecteurs. Et j’en 
suis heureux. 

Sachant qu’une revue est 
d’autant plus vivante que ses lec- 
teurs y participent, je voudrais 
vous demander si lors d’un envoi 
de ‘‘trucs’” ou programmes, une 
simple liste est suffisante, ou s’il 
vous faut une disquette les 
contenant ? 


Jean-François Brandone 
06 Carros 


M Ilest vrai que l’introduction 
au clavier d’un programme est 
parfois fastidieuse : merci de 
penser à nous. Mais dans la plu- 
part des cas, lors de vos envois 
de ‘‘trucs’’ ou d’astuces, une 
simple liste, imprimée avec des 
caractères noirs de préférence, 
nous suffit. 


Interface 
trop chère 


J *AIMERAIS savoir s’il est 
possible de relier le PB-700 
à un magnétophone, sans ache- 
ter l'interface FA-4, trop 
coûteuse. 

D'autre part, possédant la 
FA-3, interface pour le PB-100, 
je n’ai pas encore réussi à trou- 
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ver un magnéto qui se connecte : 
quel matériel utiliser ? 
Merci d’avance. 


Christophe Chartier 
44 Nantes 


# L'interface FA-4 permet de 
relier le PB-700 à un magnéto- 
phone à cassette (ou à micro- 
cassette). Elle coûte 765 FF ttc. 
En lui ajoutant un cordon 
(500 FF), le PB-700 peut être 
relié à une imprimante de type 
Centronics. 

Une autre interface (en fait, 
un bloc interface-cassette/impri- 
mante), la FA-10, existe pour le 
PB-700 : elle coûte environ 
2 300 FF. Aucune autre possibi- 
lité de liaison entre le PB-700 et 
un magnétophone n'est possible 
actuellement. 

Quant à l'interface FA-3, elle 
permet la liaison entre le PB-100 
et tout magnétophone à cassette 
disposant de prises ‘‘jack’” en 
sorties micro et écouteurs. De 
tels magnétophones se trouvent 
facilement, dans le commerce. 


Programmer 
le Dragon 


ÉBUTANT en informati- 
que, je me suis penché, 
avec mon Dragon 32, sur le pro- 
gramme de Tic-tac-toe paru 
dans le numéro 2 de LIST. 
J’ai observé qu'il fallait rem- 
placer tous les LET du pro- 
gramme par des THEN (d’autres 
THEN ont été omis à la suite de 
IF). En outre, ne comprenant 
pas l'instruction DIM PO% 
(9841), j'ai simplement supprimé 
le signe ‘‘%”” et ça n’a pas mar- 


Écrivez à LIST 
5 place du Colonel Fabien 
75491 Paris Cedex 10 


VOS CLAVIERS 


ché : DIM PO(9841) prend 
beaucoup trop de place en 
mémoire. 

Enfin, le langage d’assem- 
blage ou le langage-machine est- 
il abordable, et si oui, 
comment ? 


Jean-Marie Monteil 
31 Rieux 


Œ Dans un programme Basic, 
la présence de IF n’entraîne pas 
forcément celle de THEN: 
celui-ci peut être “‘‘élidé”’. Ce 
n’est pas un oubli, mais une 
simplification. 

Quant au signe ‘‘%”?, il indi- 
que que la variable traitée est 
entière, et n’occupe donc que 
deux octets (au lieu de quatre, en 
simple précision). Ainsi, la 
mémoire n’est pas dépassée. 
Cette possibilité est accessible 
d’une autre façon, sur le Dra- 
gon : il faut déclarer la nature 
entière de la variable, en début 
de programme par DEF INT 
nom de variable. 

La programmation en Assem- 
bleur — du 6809, sur le Dragon 


— est tout à fait ‘‘abordable’’. 
Par exemple, en lisant un 
ouvrage sur le 6809 (comme 
‘“Microprocesseurs : du 6800 au 
6809, modes d’interfaçage’”’ de 
Gérard Reveilin, chez Dunod 
Informatique, 1981) pour 
apprendre, et en essayant un 
logiciel comme Dragbug (voir 
‘es coups d’œil de LIST’’, 
page 41) pour programmer en 
Assembleur. 


NSC 800, 
l’autre nom du Z80 


HAQUE mois, j’éprouve 

un immense plaisir à taper 
programmes et astuces sur ma 
‘‘bécane’”’. L’informatique est 
faite pour moi ! J'adore traquer 
les ‘‘Syntax Error”, les ‘‘Illegal 
Fonction’’ ou autres messages 
d'erreur. Et une fois que le pro- 
gramme tourne, quelle récom- 
pense ! C’est ce qui fait que je 
souhaiterais aujourd’hui pro- 
grammer en langage-machine 
sur le Canon X-07, dont le pro- 
cesseur est le NSC 800. Se 
programme-t-il comme le Z80 ? 


François Fine 
05 Briançon 


E possède un Canon X-07. 
Son microprocesseur, le 
NSC 800, est compatible avec le 


INDEX DES ANNONCEURS 


Editions du Cagire 
ETMS 
Fraciel 


Librairie Informatique d’Aujourd’hui 
L'Ordinateur Personnel 
Maubert Electronic 
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Z80. Je n’ai jamais fait que reco- 
pier des programmes utilisant le 
langage-machine, sans jamais 
rien y comprendre. Quelle 
bibliographie conseillez-vous 
pour apprendre le langage- 
machine du Canon ? Merci 
d’éclairer ma lanterne. 


Frédéric Dalsace 
50 Agon 


Æ Le processeur du Canon 
X-07, le NSC 800, est dit ‘‘com- 
patible’’ avec le Z80. En fait, il 
semblerait que ce soit le même 
processeur, sous deux appella- 
tions différentes. La program- 
mation en langage-machine peut 
donc être abordée grâce à des 
ouvrages sur le Z80 : ‘‘Initiation 
au langage Assembleur’” (avec 
des exemples sur 8080, 8085, 
Z80 et NSC 800) de Bernard 
Geoffrion et Henri Lilen, aux 
éditions Radio ; ou encore, 
‘‘Programmer en Assembleur, 
illustré avec le jeu d'instruction 
du Z80”’, de Alain Pinaud, aux 
éditions du PSI. 


Les manuels 
en question 


OTRE nouvelle formule 

est un précieux complé- 
ment aux notices fournies par les 
fabricants qui sont notoirement 
insuffisantes. Quand les distri- 
buteurs se rendront-ils compte 
que l’on voudrait exploiter tou- 
tes les possibilités de leurs appa- 
reils et pas seulement savoir les 
brancher ? 


Longue vie à LIST. 


Joël Palud 
69 Lyon 


….… HUMOUR ! HuMouR ! 
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JACQUES Sebastien 


* 


ÉCRIT ET DESSINE SUR 
COMPUTER SHARP PC-1582 


© 9% LUCE, & NIC, MERSER. 1933 


LA SOURCE EST 
TARIE.. JE... 
cl 


PROTOTYPE 
DE LA 
NASA 


24 B 


LUCIEN 


SÈNEE 


OK!. VOYONS …. HOM! 
B.D.A... 0... QU'EsT-Œ 
QUE ÇA DONNE ? 


Hervé Le Follic 


B.D. 
ASSISTÉE FAR 
ORDINATEUR ! 
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LA GAZETTE DE LIST. 


UN LIVRE 


sentation des données en 
machine. Au fil des chapitres 
suivants, nous approfondissons 
l’étude des instructions tout en 
abordant le vaste dossier de la 
manipulation de l’assembleur- 
éditeur type du C. 64. Le cha- 
pitre de conclusion s'impose : 
quid des interactions avec 
Basic. 

Un bon point pour les sché- 
mas : ils aident puissamment à 
la compréhension du texte. 

Restent les annexes. Ta- 


L’assembleur du 
Commodore 64 
Pratique Volume 2 
Daniel-Jean David 
Editions du PSI 
Broché, 208 pages 
Prix : 100 FF 


l'assembleur du 


Commodore 


64 


PRATIQUE VOLUME 2 


bleaux des instructions du pro- 


cesseur, liste des adresses stra- 
tégiques du système constituent 
un ensemble cohérent de bonne 
facture, émaillé d'exercices de 
difficulté croissante qui mène- 
ront le lecteur à une excellente 
connaissance des manipulations 
de base. La solution (ou une 
solution) de chaque exercice se 
trouve dans les dernières pages 
du recueil. 

Il s’agit là d’un outil d’ap- 
prentissage solide du langage- 
machine et de la programma- 
tion en Assembleur. JPL EM 


Forth, Logo et les autres 


NFOGRAMES, la société 

lyonnaise récemment entrée 
sous la houlette de Vifi-Nathan 
annonce quatre nouveaux logi- 
ciels (deux utilitaires et deux 
langages), pour Oric Atmos et 
Commodore 64. Côté cœur, 


Les logiciels du Festival 


OUR ceux qui n’avaient pu se rendre à Villeneuve-les-Avignon en juillet dernier, les animateurs 

du Festival du Logiciel présentaient à l’occasion du Sicob les programmes primés. 
Le grand public a ainsi pu découvrir, du 19 au 30 septembre 1984, sur le parvis de La Défense, 
40 logiciels choisis parmi 300 autres par les 8 000 visiteurs de ce festival ‘‘estival””. Æ 


je ll 


qi) 


OUS voilà en 

connu : « l’assembleur du 
Commodore 64 » n’est autre 
que la version revue et corrigée 
de l’édition originale parue en 
1981, titrée « La pratique du 
PET/CBM-Volume 2 ». 


terrain 


Entre-temps, la rédaction et 
les schémas n’ont pratique- 
ment pas été remaniés. Ce qui 
n'empêche nullement les nou- 
veaux lecteurs d’y trouver 
matière à découverte. Les qua- 
lités pédagogiques sont intactes 
qui permettent aux néophytes 
comme aux programmeurs 
moyens un perfectionnement 
réel et l’acquisition des bases de 
la programmation en langage- 
machine sur C. 64. 

Cinq chapitres bâtissent l’ou- 
vrage. Le premier dessine une 
vue d’ensemble du jeu d’ins- 
tructions et le mode de repré- 


ES 


À * 


2 


sont disponibles à la 


1 


, SSID EEE | a 
K 2 
Æ} : 


Informatique 


d'Aujourd'hui 


TOUS Vos livres of 
TOUTES vos VeVues 


D 
LIBRAIRIE INFORMATIQUE D’AUJOURD’HUI 


r DER me bpspnrbe TROIE Dore Sn AILEIR TIRER. Mésee : Conupptipn2iBorsioon -2nsprtd ppp sprespiar 22 A9 
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SPECIALISTE DES 


deux aides à la création 
graphique. 

Images permet de créer, com- 
piler et sauvegarder toute image 
sur Atmos, (en vue d’être utili- 
sée au sein d’un programme 
Basic ou Assembleur) et Gas Kit 
combine sur Commodore 64, 
graphisme et musique. Côté ini- 
tiation et apprentissage, Logor 
offrira aux propriétaires d’At- 
mos les joies infinies du langage 
Logo et Forth (aux mêmes uti- 
lisateurs) une adaptation du 
fameux Forth, (c’est sans 
surprise). CL) 


LE 
ee 4 A AE RE LE AO NS MR EX EE 


ES Anglais sont rusés. 

Profitant de la mythologie 
moderne et du nom sacré de 
lun des plus grands scientifi- 
ques du siècle, ils lancent sur le 
marché un nouvel ordinateur 
baptisé Einstein. 

De quoi faire rêver de nom- 
breux consommateurs. Ratis- 
sant large (Einstein est destiné 
aux amateurs, hobbistes, 
joueurs et semi-professionnels), 
ce nouveau britannique s’avère 
effectivement prometteur : 
haute résolution graphique 
256 X 192 points, 16 couleurs, 
32 « sprites », 64 Ko de 
mémoire vive et 8 Ko de 
mémoire morte extensible à 32 
Ko, il devrait être particulière- 
ment apprécié des pro- 
grammeurs. 

Le Basic est extensible à 190 
instructions et différents langa- 
ges dont Cobol, Forth, Fortran, 
Logo et Pascal seront prochai- 
nement disponibles. Seul incon- 
vénient, le prix 7 000 FF ttc 
(avec un lecteur de disquettes) 
qui met l’Einstein directement 
dans le haut de gamme familial. 
Un nouveau concurrent 
d’Apple ? LI 
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Comment programmer 
Trois exemples pour une 
méthode 

Jean-Claude Barbance 
Éditions du PSI 


Lagny, 1984 
Broché, 216 pages 
Prix : 100 FF 


EEDITION d’un ouvrage 

paru en 1980, ce livre 
contient une description détail- 
lée, étape par étape, de la 
méthode à suivre pour écrire 
des programmes faciles à 
maintenir. La première partie 
(une soixantaine de pages) 
décrit la démarche : comment 
définir les objectifs, les métho- 
des d’analyse, la programma- 
tion et la mise au point. 

C'est bien écrit et facile à 
lire. L'auteur a choisi de 
s'adresser à des débutants, 
pour lesquels cette partie sera 
très précieuse. Cette descrip- 
tion théorique est ensuite 
reprise de façon plus concrète 
avec trois exemples : écriture 
d’un nombre sous forme de 
mots, jeu du 421 et comptabi- 
lité personnelle. 

Les trois exemples retenus 
illustrent assez bien les diffé- 
rents types de problèmes ren- 
contrés, et ils sont écrits dans 
un Basic standard (TRS-80), 
mais l’utilisation du 
IF... THEN...ELSE, des varia- 
bles entières N°% et de plusieurs 
instructions par ligne posera 
parfois quelques problèmes 
d'adaptation au débutant. Heu- 
reusement, des organigrammes 


LOGICIELS DE 
GESTION SUR 
MICRO-ORDINATEUR 
adaptés aux PME 
PMI, commerçants, 
artisans, professions 
lHbérales. 


25 Dominique PETITQUEUX 


OMPTA-LEE 


Logiciel de Comptabilité Générale 


Plan Comptable" 


mptes 1750frs 


PATENT 


Logiciel du traitement de 1a Paie 


option mensualisation +300 frs ver 


CE KE 


Logiciel de gestion des CHIFFRES dans le TEMPS fHist 


RP-LIX k 


Logiciel de gestion du Tableau d'Amrtissement linéaire & 


ETrQ@-LxE 


Logiciel de gestion des adresses postales (Mailing) 


version de base 400 frs 


T Fe 

EL 
1) JL 
Sarl au Sa pé eat de 20.000 trs 


live vR20 molle ), ou 4 65 ré 


ea OMPIPE Denise. Des 


DUPLICATION DE VOS PROGRAMMES 
INFORMATIQUES SUR CASSETTE 


Dépêchez-vous 
avant la nouvelle taxe sur 
les cassettes vierges. 


CASSETTES VIERGES POUR MICRO 


Prix TT.C. par boîte de 25, frais de port inclus. 


C10 20000F | C40 25000F 

C15 21250F | C60 275,00F 

C20 22500F | C90 300,00F 
Commande par boîte de 25 exemplaires. 


Le bon de commande est à retourner accom- 
pagné du règlement à: 


CAÏIEULES LE TÉMOIGNAGE 


51, rue de Ville-d'Avray-92310 SÈVRES-TéI.(1)534.4378 
—<€ 


Je souhaite Boîte(s) de C ___ 


Nom 
Adresse 


Revendeurs, nous consulter. 
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Sr 


LE TÉMOIGNAGE 
EE 


très clairs devraient l’aider à s’y 
retrouver. C’est le programme 
de comptabilité familiale qui 
m'a semblé le plus intéressant 
(une annexe en donne d’ail- 
leurs une version disquette). 
Un ouvrage qui pourra donc 
être lu avec profit par des 
débutants en programmation. 


JD M 


DU CÔTÉ DES CLUBS 


Deux clubs pour les 
programmeurs Sarthois 


U Mans, le Micro-Club 

Loisirs et Culture orga- 
nise des stages de formation 
avec prêt d’appareil. 

Ses membres seraient heu- 
reux d’accueillir des amateurs 
de programmation en Assem- 
bleur 6502. 

Ils disposent d’Oric bien sûr, 
mais aussi de TRS-80 et de ZX 
81. 

Pour plus de renseignements, 
contactez : 

M. Blondeau 

Micro-Club Loisirs et Culture 
6 allée du Spoutnik 

72100 Le Mans 


E 6502 et le Z 80 sont 
également à l’honneur à 
Coulaines. 

L'Association des Micro- 
Informaticiens Sarthois vous 
propose des ateliers d'initiation 
et de perfectionnement aux lan- 
gages Logo, Forth, Basic et 
Assembleur (sur Apple, Oric et 
Sharp). 

Une cotisation annuelle de 
200 francs vous donne accès à 
ses activités ainsi qu’à la biblio- 
thèque et à la programmathè- 
que. 

Chaque semaine, l’AMIS 
prend l’antenne. Son magazine 
hebdomadaire est diffusé par la 
Radio locale Le Mans FM104. 

Si vous êtes intéressé, sachez 
qu’une permanence est tenue de 
18 à 20 heures tous les mardis, 
à l’adresse suivante : 
AMIS 
1 rue de Moscou 
72190 Coulaines 
Tel. (43)81 83 63 

(43)27 33 28 
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A propos de l’interface parallèle 
pour C.64 et VIC 20 


D: le numéro 3 de LIST, nous signalions la découverte, 
à Bischheim près de Strasbourg, d’une interface parallèle 
pour Commodore 64 et Vic 20. Nous précisions même l’adresse 
de son distributeur. Maïs pas son nom. Il s’appelle NEOL (4a, 


rue National, 67800 Bischheim). 


L'oubli est réparé ! 


Deux naissances à Paris 


estiné aux possesseurs de 

Canon X-07, le Club C7 
est une association régie par la 
loi de 1901. 

Elle propose à ses adhérents 
conseils techniques et stages, et 
met à leur disposition bibliothè- 
que et programmathèque. Le 
Club édite aussi une gazette. 

Une permanence téléphoni- 
que est assurée le mercredi 
matin au 371 22 20 
Club C7 
33 avenue Philippe Auguste 
75011 Paris 


E CIA (lisez Club d’Infor- 

matique Avancée, ne pas 
confondre avec la CIA) ouvre 
ses portes aux jeunes de 14 à 18 
ans (les plus âgés peuvent venir 
aussi !). 

Possesseurs de TO7, ZX, 
C64, Applell, TRS-80 ou 
autres, vous êtes invités à venir 
acquérir tous les samedis de 15 
à 17 heures, les outils de base 
nécessaires à l’élaboration de 
logiciels de qualité (jeux, mais 
aussi tableurs, langages...). 

Au programme, désassem- 
bleurs, compilateurs, interpré- 
teurs. 

Les jeunes membres du club 
bénéficieront des conseils avisés 
d’adultes expérimentés. 

Si vous n’habitez pas Paris, 
vous pouvez aussi leur écrire. 
MM. Jean Leflour et Christian 
Scherer 
Club d’Informatique Avancée 
Ecole Nationale Supérieure de 
Création Industrielle 
48 rue Saint Sabin 
75011 Paris 
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Boîte à outils pour 
Sinclair et Timex 

ZX 81, ZX Spectrum, 
Timex 1000, 1500 

et 2000 

Marcel Henrot 
Editions SAPECA 
Collection 
MegaO-Poche 
Bruxelles, 1983 
Broché, 128 pages 
Prix : 35 FF 


A collection MegaO- 


Poche a été créée 
pour mettre à la disposition 
des utilisateurs de petite 
informatique des program- 
mes qui leur permettent de 
résoudre de nombreux pro- 
blèmes de la vie quoti- 
dienne. C’est en tout cas 
ainsi que ses éditeurs la pré- 
sentent. J'avoue être un 
peu déçu par cet ouvrage 
consacré au ZX 81 et au 
Spectrum. 

Peut-être suis-je l’une des 
rares personnes à ne pas 
rencontrer quotidiennement 
de problèmes avec la rou- 
lette russe, le tracé d’une 
ellipse, le codage de messa- 
ges secrets, et j’en passe ! 
Toute plaisanterie mise à 
part, et bien qu’il me sem- 
ble regrettable que l’aspect 
« vie quotidienne » ne soit 
pas effectivement davan- 


tage abordé, il s’agit d’un 
livre bien fait, assez éclecti- 
que et très agréable à utili- 
ser. 

Il propose 28 program- 
mes, écrit pour le ZX 81 et 
adaptés au ZX Spectrum. 
Si l'originalité n’est pas le 
trait marquant de ces pro- 
grammes, l’aspect éducatif 
du livre mérite en revanche 
d’être signalé : les program- 
mes sont très clairement 
expliqués, les lignes intéres- 
santes sont abondamment 
commentées et l’on trouve 
même la liste détaillée des 
variables utilisées. 

Tout cela sous un format 
réellement de poche et pour 
un prix tout à fait aborda- 
ble. Un livre clair et 
attrayant, à recommander 
au débutant. 

BE SH 


Macadam 


I cow-boy, ni revêtement 

routier, Macadam est un 
nouveau langage de program- 
mation développé par une 
société française — Régiciel — 
à la demande de CBS Electro- 
nics. Macro-Assembleur destiné 
à l'ordinateur Adam, Macadam 
est, selon ses concepteurs, le fin 
du fin en matière de program- 
mation : lecture et exécution 
ultra-rapides, haute résolution 
graphique, éditeur plein écran, 
gestion des entrées-sorties, mul- 
tiplicité des modes d’assem- 
blage, un outil efficace pour des 
jeux, traitements de texte et 
autres applications. 

Pour les sceptiques, une 
démonstration des capacités de 
Macadam sera bientôt visible en 
boutique sous la forme d’un 
« Micro-Clip », logiciel de pré- 
sentation de l’ Adam. Une pré- 
cision sur ce nouveau concept : 
« le micro-clip est à l’ordinateur 
ce que le vidéo-clip est à la 
vidéo ». En clair, de la pub joli- 
ment habillée. Macadam 
devrait être déjà disponible. 
Avis aux « microastes » (qui 
sont à la micro ce que les 
vidéastes sont à la vidéo). M 
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Macintosh 

Muiltiplan 

Macpaint 

Eddie Adamis 
Editions Cédic-Nathan 
Paris, 1984 

Broché, 144 pages 
Prix : 89 FF 


L y a mille façons de prati- 
quer l’informatique indi- 
viduelle. 

L'ouvrage d’Eddie Adamis 
s’inspire, quant à lui, d’une phi- 
losophie du type ‘‘l’ordinateur 
individuel, mais c’est facile’? 
très particulière : celle que tente 
de promouvoir — avec semble- 
t-il un succès assez sympathique 
— Apple avec son ‘‘Système’” 
Mac. 

Mac, c’est bien entendu 
Macintosh que l’on déteste ou 
dont on tombe amoureux sans 
guère de nuances. Tout y est 
pensé pour que son utilisation 
soit simple (la bidouille n’a plus 
droit de cité), la souris fait tout 
pour vous. 

Eddie Adamis, le plus fran- 
cophone (et phile) des auteurs 
américains, bien connu pour ses 
“mots-clés du Basic” et ses 
ouvrages sur Apple III et IBM- 


Turbo Pascal : un logiciel sur CP/M ou MS/DOS 


VEC ses 100 000 exemplaires vendus en quelques mois, Turbo 


padie Adamis 


eecieinathan 


i 


PC, réunit ici une — très — 
brève introduction ap Macin- 
tosh et deux longs chapitres 
consacrés à Multiplan et 
Macpaint. 

Il n’existe pratiquement pas 
une page qui ne bénéficie, en 
guise de contrepoint, d’une 
copie d’écran : une idée astu- 
cieuse et un moyen agréable et 
précis de passer en revue la plu- 
part des instructions de ces deux 
logiciels (un tableur célèbre et 
un programme de dessin à 
l’écran, en noir et blanc) ainsi 
que leur maniement concret. 

Voilà un mode d'emploi très 
visuel qui donne envie de s’y 
mettre. 

AW 


eines 


Math et matique vont encore en bateau 


UAND le vieux monstre 
refait surface dans les 
eaux tumultueuses de l’infor- 
matique pochéenne, cela fait 
« gloup ! ». Et Hewlett Pac- 
kard est un artiste en matière de 


 « gloup ! ». 


De quoi s’agit-il ? Mais d’un 
nouveau module d’extension, 
monsieur. Cette fois-ci, c’est 
pour l’ordinateur HP-71 B 
— le fort en maths de la 
famille — et, avec ce petit air de 


: « déjà vu », c’est encore une 
]J 


réussite. 

A trente-cinq francs le Kilo- 
octet, en voici trente-deux inté- 
gralement consacrés aux mathé- 
matiques. Calcul matriciel, 
nombres imaginaires et recher- 
ches de racines n’ont désormais 
plus de secret : à chacun sa 


: petite fonction. Sur la cinquan- 


taine de ce module, on peut rai- 


: sonnablement trouver chaus- 


sure à son pied. 
FNROOT, justement, est une 


fonction capable de chercher les 
racines solutions d’une équa- 
tion ayant jusqu’à cinq varia- 
bles. Et, INTEGRAL calculera 
les intégrales multiples jusqu’à 
l’ordre cinq également. Quand 
on disait qu’un air de « déjà 
vu »... 

PROOT (excusez du peu...) 
n’est pas une insulte mais une 
fonction destinée à la résolution 
d'équations polynômiales : 
trente-cinq minutes suffisent à 
régler le sort d’un polynôme de 
degré 100, « relativement rapi- 
dement » donc. 

Les nombres complexes sont 
ici à la fête. Le module apporte 
une panoplie complète de fonc- 
tions arithmétiques et scientifi- 
ques. Le nombre complexe est 
traité comme un couple, (0,1) 
pour i, et les opérations s’effec- 
tuent entre couples : (0, 
1) x (0,1) donne évidemment 
(-1,0) 

Les matrices ne sont pas 


Vous connaissez Hewlett-Packard ? 


Nous avons 


Tous les livres 


sur la HP-41C 


Nous aussi ! 


(dont 


toutes les traductions, faites par nous) 


Des Programmes : 


Jeux, 


mécanique, bâti- 


ment, finance, FORTH/HP-75 ... 


Des 


Pascal est le best-seller des compilateurs Pascal. Il faut dire 
que ses performances sont exceptionnelles. 

I s’agit d’un ensemble complet, possédant un éditeur, un char- 
geur, un éditeur de liens, un compilateur, un débogueur et même 
un tableur. 

L'éditeur est compatible Word Star, et se révèle rapide, perfor- 
mant et agréable à utiliser. Le compilateur Pascal travaille à une 
vitesse foudroyante : de l’ordre de vingt lignes à la seconde dans 
des cas qui ne sont pas particulièrement favorables. Les Pascal M, 
JRT et MT + sont largement battus, puisque ceux-ci sont environ 
dix fois plus lents. 

Le débogueur, qui localise les erreurs dans le programme lui- 
même, est un des meilleurs qui soit. Il donne l’impression que l’on 
travaille avec un interpréteur Pascal. 

Enfin, pour compléter le tout, un tableur, appelé MicroCalc, est 
fourni en langage source. Non compilé, il vous montrera comment 
un tel programme est conçu. Compilé, il vous rendra de bons servi- 
ces avec des performances très honorables. 

Turbo Pascal est vraiment bien fait pour un prix particulièrement 
raisonnable : moins de 700 F. A ce prix-là, on risque de croire que ce 
n’est pas le meilleur compilateur Pascal. 

TC 
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Matériels HP-IL : Imprimante tra- 
ceur, Interface vidéo graphique (nou- 
veau, exclusif !)... 


Nous n'avons pas la place de tout 
mettre, demandez Notre Catalogue Gratuit 
qui vous sera vite indispensable. Vente 
par correspondance dans le monde entier. 


Spécialiste des portable 
HP-75, HP-71, HP-IL), 
Des nouveautés tous les mois ! 


HP 


(HP-41, 


Editions du 
77, rue du Cagire 

FRANCE CAGIRE 
16 (61) 44.03.06 


31100 Toulouse 
S.A.R.L. au Capital de 20.000 F. 


LIST - PAGE 17 


en reste. Le module, ici, fait un 
peu oublier la pénurie d’instruc- 
tions du HP-71 B en la matière. 
Là encore, on retrouve les fonc- 
tions arithmétiques de base 
accompagnées des inévitables 
calculs de déterminants et inver- 
ses, sans oublier la bonne idée 
de permettre la manipulation 
des matrices comme des nom- 
bres à part entière. 

En trigonométrie, 6 joie, on 
trouve les fonctions hyperboli- 
ques et la transformation de 
Fourier. " 

Bien d’autres fonctions sont 
maintenant disponibles — dont 
la très jolie fonction Gamma — 
qui vous aideront à passer 
encore des nuits blanches à 


manipuler vos chiffres chéris. 
N'oubliez pas non plus la leçon 
d’anglais donnée à titre gra- 
tuit : si 180 pages de manuel 
dans la langue de Shakespeare 
ne ravivent pas vos souvenirs 
scolaires, c’est à désespérer. 
Enfin, à l’aide de ce puissant 
instrument de calcul scientifi- 
que qui multiplie très sérieuse- 
ment la puissance (en ce 
domaine) du HP-71 B, on 
n’aura aucune peine à trouver 
une justification scientifique à 
la dépense des 1 140 FF néces- 
saires pour l’acquérir… 
OA 
PS : Si vous trouvez une 
solution élégante à ce menu 
problème, écrivez-moi SVP. 


Miami : les logiciels CNRS 


E laboratoire informatique du CNRS vient de publier une revue, 
gratuite, destinée au logiciel. Sous le titre aguicheur de Miami, 
ce magazine propose des essais logiciels et divers articles sur des thè- 
mes tels que EAO (Enseignement Assisté par Ordinateur), image 
de synthèse, etc. Des comptes rendus de projets réalisés dans le 
club du CNRS seront également publiés. Ci 
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Commodore 64 en 
version RGB 


N attendant les nouveaux 
ordinateurs Commodore 
(Plus 4, 234 et autres), qui n’en 
finissent pas de finir d'arriver, 
on pourra se consoler avec une 
nouvelle version du talentueux 
C.64 : le C.64 RGB. Intégrée à 
l’unité centrale, la carte RGB 
donnera au cheval de bataille de 
Commodore une qualité de 
reproduction d'image meilleure 
et facilitera grandement le bran- 
chement TV, réalisé directe- 
ment par la prise Péritel. 
Quant aux infortunés posses- 
seurs d’un téléviseur non-Péritel 
— ils sont nombreux — Com- 
modore a annoncé qu’un nou- 
vel adaptateur offrant une liai- 
son Secam d’excellente qualité 
était disponible sous le nom de 
code d’« Oscar ». Des accessoi- 
res qui devraient faciliter la vie 
de nombreux utilisateurs. Il 
faut avouer, 18 mois après la 
sortie effective du Commodore 
64, qu’il était temps. = 


UN PETIT TOUR CHEZ LE LIBRAIRE 


Maîtrisez les interfaces de 
votre micro-ordinateur 
Francis Saguez et Christian 
Andrieux 

Editions Eyrolles 

Paris, 1984 

Broché, 144 pages 

Prix : 85 FF 


Guide de l’utilisateur 
TRS-80 modèle 100 
Orson Kellog 
Editions Sybex 
Paris, 1984 

Broché, 106 pages 
Prix : 78FF 
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Pratique des MS-DOS et 
PC-DOS 

Henri Lilen 

Editions Radio 

Paris, 1984 

Broché, 126 pages 

Prix : 90 FF 


Programmer en LISP 

Henri Farreny 

Editions Masson 

Collection ABC des langages 
Paris, 1984 

Broché, 120 pages 

Prix : 68 FF 


Le système d’exploitation 
MS-DOS version 1 et 2 
Roger Politis et Bruno 
Vanryb 

Editions Eyrolles 

Paris, 1984 

Broché, 216 pages 

Prix : 120 FF 


Guide de l'utilisateur 
Commodore 64 
Joseph Kascmer 
Editions Sybex 
Paris, 1984 

Broché, 160 pages 
Prix : 78 FF 


Basic, système et 
langage-machine 
Jean-Christophe Krust 
Editions du PSI 
Lagny, 1984 

Broché, 168 pages 
Prix : 90 FF 


LISP mode d'emploi 
Christian Queinnec 
Editions Eyrolles 
Paris, 1984 

Broché, 320 pages 
Prix : 160 FF 


CASSETTES ET 
DISQUETTES 


Monams 


Moniteur-assembleur 
Cassette pour Orici/Atmos 
Edité par Micro-Compta 5 
Distribué par VISMO 

Prix : 95 FF 


Logologic-1 

Cassette pour C. 64/Vic20 
Edité par No Man’s Land 
Distribué par Innelec 

Prix : 120 FF 


Oric-Calc 

Cassette pour Oric 

Distribué par Microprogram- 
mes 5 

Prix : 180 FF 


Microdrive Forth 1-1 

Deux cartouches pour 

ZX Spectrum 

Edité par DDC/Sémaphore 
Prix : 500 FF 


Tasword deux 

Cassette pour ZX Spectrum 
Traitement de texte 

Edité par DDC/Sémaphore 
Prix : 255 FF 


Logiciels 
pour Canon X-07 


XHAUSSÉS. Les utilisa- 

teurs du X-07 le seront 
bientôt dans leur quête du logi- 
ciel. Logi’ Stick, société spécia- 
lisée dans la production de logi- 
ciels pour ordinateurs portables 
vient de sortir son catalogue 
Automne-Hiver avec quelque 
15 titres différents. Au menu un 
Calc, une gestion de fichiers, 
des problèmes de maths 


N° 4 - NOVEMBRE 84 


(niveaux lère , « Math Sup » et 
« Math Spé ») ainsi que deux 
aides à la programmation. 

Aide est destiné à l’optimisa- 
tion des programmes Basic et 
langage-machine (à noter au 
passage un moniteur -Hexa- 
Décimal), et Ass/desasse réunit 
quatre programmes pour l’ap- 
prentissage des codes machines 
Z 80. 

Ces logiciels tournent bien 
entendu sur écran 4 lignes (celui 
du X-07) mais sont également 
adaptés à l’affichage TV (pour 
ceux qui ont acquis l'interface 
Péritel de Canon). Ils sont dis- 
ponibles chez DDI, Duplication 
et Diffusion Informatique, au 
prix de 150 FF chacun. = 


UN LIVRE 


Guide du Basic Apple II 
Douglas Hergert 
Editions Sybex 

Paris, 1984 

Broché, 286 pages 

Prix :78FF 


EEE 
ARLES 


x, 


ès 


7 


E guide du Basic de 
l'Apple II utilise une 
formule très classique ; quelque 
153 mots y sont recensés, for- 
mant un véritable dictionnaire 
qui regroupe instructions, com- 
mandes et fonctions du langage 
avec, en prime, certains termes 
supplémentaires (comme Menu 
ou Notation scientifique). 
Quelques reproches en pas- 
sant : pour cette version fran- 
çaise, où l’on prend soin de 
définir le mot ‘‘programmeur’” 
(sic), nous aurions aimé pou- 
voir trouver quelques indica- 
tions sur ce qu'est un ‘‘slot””. 
En revanche, les détails mathé- 
matiques sur SIN ou LOG 
étaient peut-être superflus. 
Au total, un ouvrage de réfé- 
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rence bien commode pour 
ceux qui ont oublié comment 
écrire ‘‘arc tangente”” ou les 
codes de la haute résolution en 


chez certains distributeurs 
comme SPID ou Innelec, avec 
un mode d'emploi en français. 
Le distributeur exclusif, BIP, la 


couleurs. fournit avec un manuel en 
AW D | anglais ! 
SPID 
39 rue Victor Massé 
75009 Paris 
Innelec 
Koala Pad . 110 bis avenue du Général 
Un manuel en français Leclerc 
93506 Pantin Cedex 
A petite tablette graphique BIP 
testée sur Commodore 64 13 rue Duc 
dans LIST 3, peut être trouvée 75018 Paris = 


Logiciel québécois pour Commodore 64 


HICONTINI et Sherbrooke sont les lieux de naissance d’un 

logiciel québécois de traitement de texte : Traïitex 64. Conçu 
par des programmeurs, bien entendu canadiens, Traitex est un 
des premiers traitements de texte acceptant tous les accents de 
langue française y compris les ë, ï et ü. Nouvellement commer- 
cialisé aux Etats-Unis, il est vendu également en France sous le 
nom de « Virgule » (édité par Micro Application Software, pour 
un prix de 750 FF). Dans quelques mois, Traitex 64 sera com- 
plété d’un programme de correction orthographique contenant 


Sharp PC-2500 : 
un super compatible 


HARP a annoncé le lance- 

ment d’un nouveau porta- 
tif (et non de poche), baptisé 
PC-2500. A son actif : un écran 
LCD de 4 lignes de 24 caractè- 
res avec une définition de 
150 X 32, une imprimante- 
table traçante 4 couleurs et un 
Basic assez complet qui devrait 
permettre notamment certaines 
acrobaties graphiques. 

Quant à la surprise, elle vient 
de l’entière compatibilité du 
PC-2500 avec les logiciels et 
programmes développés sur les 
autres machines Sharp. Le 
Basic devrait même permettre la 
réutilisation de données spéci- 
fiées sur un autre appareil. 

Pour couronner le tout, 
des cartes mémoires seront dis- 
ponibles en deux versions : 8 et 
16 Ko. Le PC-2500 coûtera 
environ 3 500 FF et n’est dispo- 


plus de 125 000 mots. Affaire à suivre. Œ 


Utilitaires Oric 


ORT du principe : « on 

peut faire autre chose que 
des jeux d’arcade avec son 
Oric », ARG Informatique 
propose désormais divers utili- 
taires pour Oric 1 et son com- 
père Atmos. Super Copy Ecran 
permettra aux créateurs et gra- 
phistes chevronnés de conserver 
intactes leurs œuvres en produi- 
sant une copie conforme de 
l'écran. 

Haute, basse résolution, sim- 
ple ou double densité, noir sur 
fond blanc ou blanc sur fond 
noir tout est permis même les 
caractères double hauteur. Utile 
mais n'oubliez pas 
Pimprimante. 

Côté langage-machine Oric 
Basic Plus 1 offre la possibilité 
de renuméroter un programme 
Basic (en entier ou en partie), 
d’en supprimer des pavés ou 
encore de « mélanger » plu- 
sieurs programmes. Oric Basic 
Plus 1 est garanti « 100 % 
langage-machine ». Et si le 
Forth est une de vos lubies ou 
obsessions, J'apprends l’Forth 
devrait vous apporter la 
solution. 


nible pour l'instant qu’au 
Japon. 


DEVENEZ 
UN TECHNICIEN 2/PL0OMÉ 


se Informatique 
CT Q EE Electronique 
PM = Electricité 


ee") $A Formation assurée 
HE : par des Ingénieurs 


ve hautement qualifiés. 


BAT-BACHELIER 


Autres formations : 
Radio-Hifi. TV-Magnétoscope. 
Chimie. Froid. 

Automation. Aviation. 


1 Veuillez m'adresser gratuitement (pour l'étranger joindre 40 FF) 
1 la documentation concernant les formations suivantes : 
= . 


l'Adresse :____ 
l 


(l 
l 
(l 
(l 
L 


_ Code postal : 
Ecole Technique 
Moyenne et Supérieure de Paris 
Enseignement privé à distance 
3, rue Thénard - 75240 Paris Cedex 05 
Tél. : 634.21.99 


L:' 411 
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VIVENT LES PARAMÈTRES 


PARAMÉTRER POUR 
MIEUX TRACER 


Où l’auteur se livre à un regrettable attendrissement 
sur sès erreurs de jeunesse. 
Comme s'il en était sorti ! 


ROGRAMMER le tracé 

d'un trait horizontal 
sur l'écran est une 
opération simple. 
Et plus on démele les 
ficelles de la 
programmation, en 
particulier celles des 
paramètres, plus cette 
opération fait gagner du 
temps et de la place. 


Pour séparer proprement diffé- 
rentes parties d’un programme il 
suffit de tracer, sur l’écran, un trait 
horizontal. Il peut apparaître avec une 
ligne de la forme : 100 PRINT Pa 
= (etc., j'abrège) 


Aujourd’hui, en frappant ces lignes, 
j'ai l’index suffisamment flemmard 
pour se trouver tout dolent et cour- 
battu de frapper tant de tirets. Mais à 
l’époque, chaque fois qu’il fallait un 
trait, un PRINT ””---- convenait par- 
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faitement. 


QUEL S0v3- 
DÉVELOPPÉ ! i 
SAÏT PAS Œ QUES, 
EN CON PARAMÈTRE 


Et il tirait sur la mémoire, 
c’en était navrant ! 


Un grand pas a été franchi le jour où 


j'ai découvert l'usage du sous- 
programme : il a suffi de frapper la 


fastidieuse ligne une fois, du côté des 
9000, de la faire suivre d’une instruc- 
tion RETURN, et un simple GOSUB 
9000 faisait le reste. Et puis, comme la 


machine peut se charger du répétitif 


{elle fait ça si bien), 
devenue : 9000 


la ligne 9000 est 
FOR I1=1 TO 


39: PRINT 
RETURN. 


Si le compteur d’octets fou est à 
l'écoute, il aura remarqué que la ligne 
100 en fait 5 (prise en charge, numéro 
compris) + 1 pour PRINT + 39 pour 
les tirets + 2 pour les guillemets, soit 
48. La ligne 9000 ‘‘newlook'? fait 5 + 
25 signes ou mots-clés, soit 30, et 
même 25 si l’on supprime les espaces : 
on n’est pas loin des 50 % d'économie. 


CDR LPS 
= "at 


NEXT JI:PRINT: 


On pouvait même adapter sans dou- 
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leur le programme à d’autres largeurs 
d'écran, surtout en déclarant au début 
du programme LE=39:REM LAR- 
GEUR DE L'ECRAN et en mettant en 
9000 : FOR I1=1 TO LE... Même que 
si on voulait sortir quelque chose sur 
l'imprimante, c'était aussi bigrement 
commode. 


-Du côté 


des professionnels 


Et puis, au fil des siècles (je ne fais 
pas mon âge), le procédé s’est affiné. 
En fait j'ai simplement piqué l’idée 
dans le programme d’un autre. C'est 
d’ailleurs l'intérêt (le seul) de rentrer 
des programmes au clavier: on 
apprend des tours de mains pas possi- 
bles, surtout si on est un as de la fautte 
de frape commme vorte sreviteur, 
parce que pour trouver l’erreur, on est 
obligé de comprendre comment ça 
marche. Bref, le sous-programme en 
9000 a été remplacé par une initialisa- 
tion : 100 T$=’"”: FOR I=1 TO 
LE:T$=T$+’"-"":NEXT I et là, un 
PRINT T$ (3 octets contre 5 pour 
GOSUB 9000) tirait le trait. 


Un petit regard vers des programmes 
écrits par des professionnels nous 
apprend qu’ils paramètrent abondam- 
ment. Prenons l’exemple d’un menu de 
fichier : 


Voici ce qu’on peut en faire si l’on 
essaie d’éliminer les constantes : 


100 LE = 39:REM LARGEUR D'ECRAN 
110 DATA SORTIE DE TOUTES LES FICHES”, ’ SELECTION DE FICHES” 
120 DATA "ENTREE DE FICHES”, ‘MODIFICATION DE FICHES’ 
TRI CROISSANT", 


130 DATA ’’SUPPRESSION DE FICHES”, 
DECROISSANT"”’ 

140 DATA "ENREGISTREMENT DES FICHES”, ‘’FIN DES OPERATIONS" 
150 DIM N$(9):FOR I =1 TO 9:READ NS(D:NEXT I! 

160 T$="’"”:FOR 1=1 TO LE:T$=T$+’’-”:NEXT I 


TRI 


Les initialisations paraissent lon- 
guettes ? Voyons le menu: : 


500 PRINT CHRS( 147); TAB( 18); "[RVSIMENUI[OFF]'"':PRINT T$ 
510 FOR 1=1 TO 9:PRINT''[RVS]’"’;1"[OFFJ ';NS(D:PRINT T$:NEXT I 
520 PRINT "VOTRE CHOIX ?” 


Et toc! Mais on gagne encore à pour les guillemets en déclarant au 
avoir mis les différentes options en début : C$ = CHR$(13):G$ = 
tableau, car le choix sera un nombre CHRS$(34) 
compris entre 1 et 9, baptisé N, par 
exemple. Et chaque option commen- 
cera par un PRINT CHRS 
(147), N$S(N): PRINT T$. Ainsi on aura 
un écran effacé, le rappel de l’option et 
un trait horizontal. 


Où l’on peut 
yraiment s'amuser 


Dans le cours d’un programme, il est 
aussi possible de gagner pas mal de 
place en évitant la formule CHRS$(13) 
pour les retours-chariot ou CHRS$(34) 


Reprenons le cas d’un menu. Un 
petit paquet de lignes courtes à affi- 


500 PRINT CHRS(147); 


510 PRINT TAB(18);""[RVSIMENUIOFF]"” 

520 PRINT ” 

530 PRINT ‘’[RVSJI[OFF] SORTIE DE TOUTES LES FICHES”? 
540 PRINT ” # 
550 PRINT ‘’[RVS]J2IOFF] SELECTION DES FICHES” 

560 PRINT ” 

570 PRINT ‘’[RVSJ3[OFF] ENTREE DE FICHES” 

580 PRINT ‘” 

590 PRINT ‘’[RVSJ4[OFF] MODIFICATION DE FICHES” 
600 PRINT ” 

610 PRINT ‘’[RVSJS[OFF] SUPPRESSION DE FICHES” 

620 PRINT ” 

630 PRINT ’’{RVS]J6[OFF] TRI CROISSANT” 

640 PRINT ” 

650 PRINT ‘’[RVS]7[OFF] TRI DECROISSANT” 

660 PRINT ”” 

670 PRINT ”’[RVSJS[OFF] ENREGISTREMENT DES FICHES” 
680 PRINT ”” ne 
690 PRINT ‘’[RVSJ9[OFF] FIN DES OPERATIONS” 


710 PRINT VOTRE CHOIX 7?” 
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VIVENT LES PARAMÈTRES 


PARAMÉTRER POUR MIEUX TRACER 


cher, Ça prend de la place dans un pro- 
gramme, à cause des instructions 
PRINT: 


1000 PRINT‘SORTIE’’ :PRINT 
‘‘SELEC”’: PRINT‘ENTREE” 
: PRINTMODIF”"”? 
:PRINTTRI”" 

1010 PRINT‘*SUPPR'”? 


“‘ECRIT”’ :PRINT ‘‘FIN’”’ 


Ces lignes peuvent devenir : 
100 C$ = CHRS( 13) 
1000 PRINT‘‘SORTIE’’;C$; 
“SELEC’';C$; ENTREE”; C$; 
‘“‘MODIF””; CS; ‘‘TRI’’;C$; 


#SUPPR’ 
1010 PRINTECRIT’’;C$; "FIN? 
Et en supprimant les points- 
virgules : 


1000 PRINT ‘SORTIE‘CS$ 
“SELEC’’ C$S‘‘ENTREE”’ 
CS‘ MODIF” CSTRI” CS 
“‘SUPPR’’C$ ‘‘ECRIT”’ 
CS'*FIN?”? : 

Si l’on a lu (comme plus haut) dans 
N$(X) les différents articles du menu 
pour qu’ils puissent aussi servir de tête 
de chapitres, on peut encore, en début 
de programme mettre : 


200 MN$ =CHR$(147):FOR I = 1 TO 
9:MN$ = MN$ + NS) + CS; 
NEXT I 


Alors, un simple PRINT MNS affi- 
che le menu complet ! 

Mais là où l’on peut vraiment 
s'amuser, c’est avec les blocs graphi- 
ques sur les machines qui disposent de 
caractères de mouvement de curseur : 
100 DI$=’"’[RVS][3 ESPACES][3 

CRSR GAUCHE]J[I CRSR 
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:PRINT | 


BAS][3 ESPACES][3 CRSR 
GAUCHEJ[I CRSR BASIR 
ESPACES][3 CRSR 
GAUCHE]J[2 CRSR 
HAUTIIRVS OFF] 

110 DO$ = MID$(D1$,2,LEN(DI$(-1)) 


Vaisseau spatial 


à l'écran 


On vient de constituer un carré de 3 
X 3 en ‘‘vidéo inversée’”’, et un carré 
blanc qui pourra effacer le premier. 
L'intérêt est que, chaque fois qu’on 
voudra appeler l’un ou l’autre, un petit 
PRINT DI$ ou PRINT DOS suffira. 


Li LUE 4 


Ajoutons donc pour voir : 
120 PRINT D1$; 
130 GET RS:IF R$ =” THEN 130 
140 PRINT DO$;CHR$(32); 
150 GOTO 120 

Un carré traverse gentiment l'écran 
pas à pas chaque fois que l’on enfonce 
une touche. 

On corse ? Corsons ! Sur un Com- 


modore, on met à la place de la ligne 
100 : 


100 DI$="’[SHIFT MJ[ESPACE]- 

[SHIFT N][3 CRSR GAUCHE] 
[I CRSR BASJ[RVSJO[RVS 
OFF][3 CRSR GAUCHEJ[I 
CRSR BASJISHIFT FLECHE 
GAUCHEJ]ISHIFT &J[SHIFT 
PARENTHESE FERMEE][3 
CRSR GAUCHEI[2Z CRSR 
HAUT” 


A la place de la ligne 110 : 
110 DO$ = [3 ESPACES] CRSR 


GAUCHEJ[I CRSR BAS]J[3 
ESPACES] 

[3 CRSR GAUCHEJ[I CRSR 
BASI[3 ESPACES][3 CRSR 


GAUCHE]J[2 CRSR HAUT”? 


Et à la place de la ligne 130 : 
130 FOR T=1 TO I00:NEXT T 


Et voilà un petit vaisseau spatial qui 
traverse et retraverse l’écran. Il donne 
bien envie d’écrire une suite au pro- 
gramme pour essayer de communiquer 
avec les extra-terrestres qui l’habitent. 


Comme quoi rien de tel que la con- 
trainte des paramètres pour ouvrir la 
porte au rêve, et même au rêve écono- 
mique ! 


François J, BAYARD 


| nt 
JE FARIE QUE CEST 
ENCORE ARIANE 
QUr À LAÏSSÉ TRAÏNER 
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PROGRAMME TRÈS UTILE 


ANALYSE D'UN 
RAMASSE-POUSSIÈRE 


OUT programmeur rencontre un jour le fléau 
des mémoires vives, fléau avec lequel il a 
maille à partir : cette « calamité » nécessaire est 
plus connue sous le nom de « garbage collection ». 
Elle consiste à nettoyer systématiquement des 
zones de mémoire encombrées. 


Les utilisateurs de la HP-41 C 

sont habitués au nettoyage systé- 

matique des zones encombrées : une 

fonction PACK permet de récupérer 

des octets inutilisés au sein d’un pro- 
gramme. 

4 Malheureusement, la plupart des 

ordinateurs déclenchent ces grandes 


DocEUR.u 

Vous PARLER DE MoN PASE 

1 JE L'AI EFFACE JE 
MA MÉMOIRE /., 
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manœuvres quand bon leur semble. 
Le moment venu, celui qui est absorbé 
par sa tâche, interrompt toutes ses 
autres activités pendant le temps néces- 
saire. Ce délai, indécelable dans la plu- 
part des cas, peut atteindre plusieurs 
minutes lorsqu'on déplace un grand 
nombre de chaînes en mémoire 


(essayez le programme de démonstra- 
tion de la page suivante pour vous en 
convaincre) : l’ordinateur présente tous 
les symptômes du plantage et le pro- 
gramme tourne au ralenti (fini le tri 
rapide). 

Afin de dominer la situation et de 
tirer le meilleur parti de vofre machine, 
une enquête de mœurs s'impose. 


| Conseils de 


| première urgence 


Les chaînes alphabétiques n’occu- 
pent pas toujours des zones fixes en 
mémoire : les chaînes que l’on assem- 
ble à l’aide d’instructions du type 
CHR$, MID$, STR$... s'inscrivent 
dans une zone de travail généralement 
située au sommet de la mémoire vive. 
Retenez maintenant ceci : plus vous 
conservez de chaînes en mémoire et 
plus le temps imparti au « nettoyage » 
est important. L'ordinateur ne tient 
pas compte, en inspectant la mémoire, 
des chaînes dont vous vous débarras- 
sez. 


Sur certaines machines, les délais 
peuvent varier comme le carré du nom- 
bre de chaînes présentes en mémoire 
(vérifiez-le en modifiant la boucle 
FOR... NEXT dans l’exemple). 


Cependant les algorithmes de « salu- 
brité » étant des plus complexes, il 


reste à déterminer le comportement 


exact de votre ordinateur dans les cas 
extrêmes : il pourra, par exemple, être 
amené à effectuer cette tâche plus sou- 
vent et plus vite quand la mémoire 
sature ; ou bien, plus souvent et... très 


LIST - PAGE 23 


PROGRAMME TRÈS UTILE 


ANALYSE D'UN RAMASSE-POUSSIÈRE 


lentement à chaque fois qu’un poin- 
teur déclenche l’alarme. 


Il n’existe pas à ce jour de remède 
miracle contre ces phénomènes incon- 
trôlés, sinon de chercher à les prévoir 
ou à les provoquer. Voici donc quel- 
ques conseils de première urgence. 


Tout d’abord, bien diagnostiquer le 
mal : élaborez un programme qui vous 
permettra de découvrir la zone de 
mémoire susceptible de subir le net- 
toyage (utilisez une boucle qui agrandit 
une chaîne et un test PEEK qui 
remonte la mémoire), 


Lorsqu’un de vos programmes souf- 


Programme de démonstration 


100 © Frogramme pour rencontrer un ramassage de poubelles 
119 DEFINT I-N 

120 

130 ‘ Commençons par créer des chaines 

140 DIM A#(640) 

150 FOR I=1 TO 640 


160 AFCI)=CHR# (46) "” Code du point 

170 NEXT 

180 ‘ 

190 ‘ Fuis créons notre chaine de ‘remplissage’ 
200 H$="AA" 


Q FOR 1=2 TO 6 
220 EH$=EB$+B$ 

D NEXT 
‘ La longueur de b$ est maintenant 2*6 soit 64 
250 H$=E$+B#$+B# ‘et maintenant 192 caractères 


270 ‘ ... et démarrons le remplissage de la mémoire 
280 FRINT"Attention, on y va...." 

290 T=TIME 

300 K=0 ‘ Attention, c'est un INT 

" on boucle... 

Q IF EF 
Oo Hf=p#+"" ‘ pas méchant, non ? 
 T1=TIME 

O IF T{-T£=2 THEN T=Ti:K=K+1:GOTO 310 


360 FRINT"'I1 y a eu ramassage de poubelles au bout de ";K;"exécutions" 


PRINT"Temps pour le ramassage:";T1-T; "secondes (+ ou - 2s)" 
9 FRINT'mais ce n'est pas fini...." 
O T=TIME 
DO X=FRE(".") 


O FRINT'Le ramassage prend encore ";TIME-T; "secondes !" 


A l'exécution du programme, 


le ramassage à lieu 


Sttention, on y va... 


Il y a eu ramassage de poubelles au bout de 272 exécutions 
s) 


Temps pour le ramassage: 59 secondes (+ où - ?s: 
mais ce n’est Pas fini... 
Le ramassage prend encore 5% secondes ! 


En remplaçant la ligne 160 par 

160 A$ (D) = *’."”, il n’y a plus 

de ramassage 
Attention, on y va... 
Fas arrivé au bout de 3 
Ereak 1n 
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232000 THEN PRINT'"'Fas arrivé au bout de 32000 boucles, on arrete":STOP 


ce boucles, on arrete 


Jr AW" 
vb (} 


A.) 
AE) 
2N [ 


dillas 2°> 


frira de « garbage collectionite 
aiguë », une courte enquête sur les 
lieux du crime vous permettra de 
retrouver la routine coupable. Bien 
souvent, il s’agit d’une routine qui 
déplace de longues chaînes (tri, 
tableur, gestion de fichiers). N'oubliez 
pas qu’une routine du genre : 

10 A$ = INKEYS 

20 IF A$ = ”’ ”’ THEN 20 

30 IF A$ <> CHR (13) THEN STOP 
40 B$ = B$ + AS 

50 GOTO 10 


peut provoquer un « nettoyage » par 
encombrement de la mémoire vive 
restante. 


Écrire un bon programme revient à 
respecter certaines règles d’hygiène au 
sein de la mémoire de l’ordinateur. 
Bien que les notices soient le plus sou- 
vent muettes à ce sujet, nous pouvons 
énoncer quelques règles précieuses. 


Il faut éviter à tout prix de déplacer 
des chaînes alphabétiques en 
mémoire ; on utilisera des tables 


Délais, délais 

Selon le modèle ou la version d’une 
machine, le mode de ramassage peut 
varier considérablement, et même 
échapper aux investigations. Cependant 
tout délai observé supérieur à 1 seconde 
mérite d’être pris en considération : en 
bouclant 10 000 fois, le même pro- 
gramme passerait près de 3 heures en 
pure perte ! 

En pratique, les délais correspondent 
à des ramassages partiels proportionnels 
au remplissage de la mémoire, ponctués 
en fin de cycle par un ramassage plus 
long et plus complet. 
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d’index mobiles (variables numéri- 
ques) qui définiront des équivalences 
entre une liste de messages et une liste 
de nombres (exemple : 1 rouge, 2 noir, 
3 bleu, etc.). 


Une visite médicale 


Quand le transfert est inévitable, 
penser à affecter une chaîne nulle aux 
variables désaffectées pour faire de la 
place. 


Ne pas travailler sur des listes ou des 


Programme de test 


100 Frogramme pour tester le “ramassage de poubelles" 
110 (garbage collecting} 
120 DEFINT I-N 
1TO BH=" OHAHHHE 
140 T1=O:T2=0:T3=0: T4%0: TS=O ‘On définit les variables pour avoir les memes FRE 
150 PRINT:FRINT " Nb ch Kempl. FRE(OG) FREC'X') Foub'! ERASE ": PRINT 
160 N=1Q 
170 ‘ Boucle 
180 FRINT USING B#;N:; 
190 TI=TIME 
200 DIM A#(N) 
210 FOR I=1 TO N 
220 A#(I)="."4+CHRE (46) 
230 NEXT 
240 T2=TIME: PRINT USING RF;T2-Ti; 
250 FRINT USING B#;FRE (0); 
260 T3=TIME:FRINT USING Et; T3-T?; 
270 PRINT USING B#;FRE(C"X");3 
280 TA=TIME:FRINT USING B#$;T4-T3; 
290 ERASE Af 
300 PRINT USING B$;FRE("X"):3 
310 TS=TIME: FRINT USING EB$;T5-T4 
320 N=2xN:1IF N<1000 THEN 170 
Résultats du programme de test 
Nb ch Rempl. FRE(O) FRECX") Poubl  ERASE 
10 D 55524 D 55534 l Gi] 
pa D  Sodé4 D 55484 a a 
aû 1 5534 D 55384 ( 
8 1 5184 Q 55164 1 ( 
168 1 54624 1 54784 4 (4 
320 2 53664 D 53984 15 () 
648 5 51744 à 52384 59 G 
En remplaçant la ligne 220 par 
220 AS (1) = *’..", les résultats 
sont différents 
Nb ch Rempl. FRE(@) FREC°X°) Poubl  ERASE 
19 (4 Q 55568 8 5 û 
28 ( D 55530 CE ( 
4 l Q 55470 Q 5 Gi] 
ëû (] Q  S5En | ( 
168 Î (4 1 (A pa a 
320 è a À (a P2 (] 
640 3 53670 a ( a @ 


Sur ce Basic 


La fonction TIME 


A fonction TIME met en évidence le phénomène de manière automatique. Cer- 
tains préféreront observer celui-ci « manuellement », en plaçant une instruc- 
tion sonore (BEEP ou SOUND) avant le GOTO de la ligne 350 du programme de 


démonstration, ou de la ligne 320 du programme de test. Celui-ci jouera le rôle d’un 
métronome, les irrégularités du « bip » refléteront l’importance et la fréquence du 
ramassage, qui pourra être évalué avec un chronomètre pendant les longues pauses. 
D'une manière générale, le principe devrait être appliqué dans tout programme pour 
suivre son évolution à l’aide de messages sonores ou de texte. 


tableaux surdimensionnés : il est tou- 
jours possible de les sectionner en 
sous-groupes plus petits sauvegardés 
sur disquette ; avant de charger un 
nouveau bloc, on peut initialiser les 
tableaux de chaînes (avec DIM, par 


Microsoft, le ramassage n’apparaît qu'avec 


FRE (X$) ; sur d’autres, il apparaît aussi avec FRE (X). 
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exemple) et forcer le grand « net- 
toyage » par un FREE (ou FRE (0) ou 
SIZE) au moment où un minimum de 
chaînes est affecté (ne pas oublier le 
message « PATIENTEZ SVP »). 
L'opération est d’autant plus rapide. 


Quoi qu’il en soit, prenez-vous par 
la main et faites passer une bonne 
visite médicale à votre machine. Lors- 
que vous dominerez bien ses réactions 
vis-à-vis du ramassage des poussières, 
vous n’aurez plus qu’à concevoir un 
squelette de logiciel armé contre tous 
les risques connus (gestion de la 
mémoire sur disquette, tableaux 
indexés numériquement ; un signal 
d’alarme sous la forme du pointeur de 
la zone mémoire utilisée pour la cons- 
truction des chaînes, vous permettra de 
détecter l’imminence du ramassage). 


Qu'advient-il 


des lutins ? 


Précisons enfin un point particu- 
lier : l’ordinateur qui collecte les octets 
dispersés simule parfaitement la cata- 
lepsie sans espoir de rémission. Cepen- 
dant on peut espérer dans la plupart 
des cas un juste retour à la normale. 


Qu’advient-il des ordinateurs qui 
gèrent des lutins ou qui vocalisent pen- 
dant le nettoyage de printemps ? Deux 
cas de figure se présentent : mes expé- 
riences personnelles montrent que si les 
lutins poursuivent leur chemin quand 
le reste du programme s’arrête, on 
court à la catastrophe. Malheureuse- 
ment si le logiciel pense à immobiliser 
les lutins pendant la durée nécessaire, 
rien n’est prévu pour les remettre en 
mouvement correctement ! Les aberra- 
tions résultantes sont facilement con- 
trôlables par logiciel, heureusement. 


Désormais, de nouvelles méthodes 
de programmation risquent fort de 
s'imposer : nous nous sommes laissés 
dire qu'un programmeur averti en 
valait deux. 


Michel ARDITTI 
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_ PETITE HISTOIRE DES LANGAGES 


PASCAL ET SA FAMILLE 


NE étude chronologique des langages 


informatiques commence nécessairement 


par les trois ancêtres : le langage-machine, 
Fortran et Cobol. Ensuite, le choix devient bien 
plus difficile, Tenter de dresser une liste est même 
impossible ; tout au plus est-il pensable de 
présenter brièvement quelques familles 
importantes, ou des cas particuliers intéressants 
(comme les langages “français”, LSE, Prolog ou 
Ada). Et, puisqu'il faut trancher, c'est la famille 
Pascal, dont l'influence est sans cesse 
grandissante, qui est présentée ici : elle réunit les 
langages Algol, Pascal et C. 


Le Pascal est le plus connu de 

toute une série de constructions 
a priori, censées aujourd’hui satisfaire 
à un nouveau principe de base : la 
structuration des programmes, objec- 
tif typiquement pédagogique (au sens 
large du terme), favorisant leur lecture 
et leur mise au point. La réussite en est 
claire : il est par exemple tout à fait 
possible que ce soit un « Pascal-like » 
qui remplace le bon vieux Basic sur les 
machines personnelles de demain. 
Mais visitons d’abord un passé déjà un 
peu ancien... 


Il y eut d’abord Algol, antérieur 
même à Cobol, mis au point en Europe 
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dans un environnement universitaire. 
Une excellente source est, une fois de 
plus, l’ouvrage fondamental de René 
Moreau « Ainsi naquit l’informati- 
que » (Dunod), mais aussi les manuels 
qui étaient consacrés à Algol (il faut 
employer cet imparfait, car il n’est pra- 
tiquement plus en course aujourd’hui). 
Une première réunion, animée princi- 
palement par F.L. Bauer de Munich, 
se tint à Zurich en 1958. Y travaillèrent 
notamment Backus, Katz, Perlis, 
Rutishauser, que rejoignirent plus tard 
par exemple le mathématicien français 
Bernard Vauquois (né en 1929, profes- 
seur à Grenoble, spécialiste en particu- 
lier du traitement automatique des lan- 


gues), le néerlandais Adrian Van Wijn- 
gaarden (créateur des ordinateurs Arra 
— à l’origine des machines Philips — 
et professeur d’Edsger W. Dijkstra) et 
le danois Peter Naur au moment de la 
transformation d’Algol 58 en la ver- 
sion Algol 60, la plus célèbre et la pre- 
mière réellement « universelle ». 


Des qualités 


reconnues 


Le nom initial d’Algol était IAL 
(International Algebraic Language), ce 
qui rappelle bien son origine scientifi- 
que. De fait, il fut tout de suite clair 
qu’il ne pouvait que difficilement trai- 
ter de problèmes de gestion, aux énor- 
mes fichiers. En particulier les procé- 
dures d’entrée et de sortie de données, 
capitales pour ce type d’applications, 
étaient mal définies et peu efficaces. Il 
connut donc une carrière commerciale 
assez médiocre. 


Les compilateurs Algol furent sur- 
tout le fait de constructeurs européens 
(sauf Burroughs), et les clients princi- 
paux étaient universitaires, moins for- 
tunés que les groupes industriels et 
commerciaux ! 


Le sommet de la carrière d’Algol se 
situe peut-être en 1968; au moment de 
la publication de sa version la plus évo- 
luée. Elle est notamment due au talent 
de Donald E. Knuth de l’Université 
californienne de Stanford, célèbre 
pour son œuvre capitale « The Art of 


Computer Programming » — noter 
l’emploi du mot « Art », là où Wirth, 
par exemple, voudrait mettre 
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« science » —, en sept volumes (quatre 
à paraître), véritable bible profession- 
nelle. 

Voici, inspiré d’un traité 
d’« Analyse numérique linéaire », un 
programme Algol calculant la somme 
des valeurs absolues des éléments 
A(,J) d’une matrice carrée d’ordre N 
(pour plus de précision, voir le livre de 
Noël Gastinel aux Editions 
Hermann) : 


lourdeur indéniable, difficulté 
d'apprentissage surtout chez des débu- 
tants non mathématiciens. Et le succès 
actuel de Pascal, qui lui doit tant, est 
une sorte de revanche quasi-posthume 
pour Algol. 


Le langage Pascal est beaucoup 
mieux connu que son ancêtre direct. Il 
a justement hérité des propriétés citées 
ci-dessus (blocs BEGIN/END), récursi- 
vité, procédures, donc bonnes possibi- 


debut entier 1, J; S: = 0 
pour 1: = 
pour J : = 
Si SR 


il 
Il 

S ABS (A(1,J)) ; 
aller a SORT 


IE 
fin 

SORTIE : NORME : = S 

fin ; 


procedure norme (A,N) ; reel tableau A ; entier N : reel S 


pas | jusqua N faire 
pas 1 jusqua N faire 


matrice. 


I faudrait naturellement ajouter l'entrée des nombres N et des coefficients de la 


Les qualités d’Algol sont reconnues 
aujourd’hui : il comportait notam- 
ment des nouveautés exceptionnelles, 
le recours systématique à des « procé- 
dures »avec variables dites locales 
— une même lettre peut figurer avec deux 
sens distincts dans le corps même du 
programme et dans un calcul annexe —, 
la récursivité (possibilité de faire 
fonctionner par un appel direct par 
exemple un sous-programme à l’inté- 
rieur de lui-même), et surtout la pre- 
mière facilité sérieuse de « structura- 
tion » par l'emploi de « blocs », déli- 
mités par les célèbres BEGIN et END, 
s’enchâssant au besoin les uns dans les 
autres. Mais ses défauts sont clairs : 


L'ORDINATEUR 
EST ON RÉSEAU 
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lités de lisibilité et de maintenance). De 
plus, les entrées et sorties sont mieux 
gérées. Mais il n’a pas su non plus 
échapper à une rigidité assez pénible : 
même une application très simple exige 
une longue liste. Le traitement des 
fichiers est peu efficace par rapport à 
Cobol (on peut tout de même faire 
aujourd’hui de la gestion sur ordina- 
teur avec certaines variantes de Pascal 
spécialement adaptées). La grande 
infériorité sur le Basic — qu’il dépasse 
sur de nombreux autres points et qu’il 
remplacera peut-être un jour dans une 
version plus souple — est son manque 
d’interactivité. Mais le bilan est très 
largement satisfaisant. 


ET TOUT SON DEVOIR 
EST DE PENSER 
COMME (L FAOT... 


Un exemple issu du livre « Premiè- 
res leçons de programmation » de Jean 
Arsac (Cedic-Nathan) montre bien la 
filiation ; il calcule la racine carrée 
d’un entier par défaut : 


PROGRAM RACINE | 
VAR N,R, V,T, INTEGER 


BEGIN 
WRITE (CN =") RREAD(N): 
WHILE N>=0 DO 
BEGIN | 
R:=0:T:=1;:N:= 1; | 
WHILE T<=N DO 
BEGIN | 
V:=V+2; 
Ti=T + V: 
R:=R+1 
END; 


WRITELN(RACINE(C,N,‘)=",R); | 
WRITECN ="); READU(N) | 
END; | 


END. l 


On pourrait encore ajouter de nombreu- 
ses lignes de commentaires, éclairant par 
exemple les égalités fondant l’algorithme très 
simple utilisé ici. 


Le créateur de Pascal voulait notam- 
ment obtenir vers 1968 « un langage 
souple et puissant que l’on puisse 
implanter assez efficacement sur la 
plupart des ordinateurs » (in le « Rap- 
port révisé » de 1973, traduit chez 
Eyrolles). Il cite comme sources expli- 
cites Algol 60 et sa variante Algol W. 
Le professeur Niklaus Wirth travaille à 
Zürich (Eidgenôssische Technische 
Hochschule): son premier compilateur 
fut achevé en 1970 sur un CDC 6000 
(Control Data) en langage-machine 
(voir par exemple un bref historique 


N'EST-CE PAS, PÉPÉ ALGOL ? 
N'EST-CE PAS, PEUT “C" 9 
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JE VAÏS ENFIN POUVOIR 
TESTER CE FAMEUX 
PROGRAMME ! 


; ee FH 
Fe | 


dans le numéro de février 1983 de la 
revue « Pascalissime »). Il utilisa 
ensuite un intermédiaire universel (le 
P-code) permettant de passer plus 
commodement à des machines réelles à 
partir d’un modèle idéal (la P- 
machine), ce qui garantit une certaine 
portabilité. 


Un langage 


universel ? 


Les versions sur micro-ordinateurs 
sont souvent dites « UCSD » (Univer- 
sité de Californie à San Diego), du 
nom de la version de Kenneth Bowles 
qui, tout en créant des extensions inté- 
ressantes, avait su optimiser la place 
nécessaire au compilateur originel, 
trop gourmand (près de 100 Ko). 
Apple, dès 1979, proposait un UCSD ; 
Tandy eut d’abord un Tiny Pascal 
(tiny = ténu), puis diffusa le Pascal 
Alcor. 


Le langage a été normalisé en 1973 
par l'ISO. En tête d’un programme 
doivent figurer de nombreuses déclara- 
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tions (notamment des types de varia- 
bles). Cette gêne — c’est ainsi que le 
ressent le débutant — correspond très 
bien aux vues pédagogiques de Wirth, 
qui voulait contraindre le program- 
meur à plus de rigueur en l’empêchant 
de pianoter à toute vitesse n’importe 
quoi sur son clavier. On sait que le 
GOTO est quasiment absent de Pas- 
cal : certains ont eu le plus grand mal, 
au bout de quelques mois, à dénouer 
les fils du ballet des indicateurs trop 
bien imbriqués sur lequel l’auteur avait 
fait reposer un algorithme trop « astu- 
cieux ». 


Pascal aurait pu devenir le langage 
« universel » recherché, par exemple, 
à partir de 1975, par le Département de 
la Défense américain (processus qui 
aboutit, comme on le sait, à la nais- 
sance du langage Ada, auquel sera 
consacré tout un prochain article). 
Maïs il n’atteignait à la rigueur souhai- 
tée que d’une manière un peu réduc- 
trice, qui le rendait par exemple assez 
mal approprié à l’exécution des tâches 
en temps réel. Aussi fut-il abandonné, 
à regret, mais en précisant que le pro- 
totype finalement retenu devrait s’ins- 
pirér de lui. 


D'ailleurs, son père lui-même, 
comme tous les vrais informaticiens de 
grande classe, fut très vite lucide sur les 
défauts de son enfant, et il chercha à y 
remédier (seuls les disciples sans origi- 
nalité se fixent avec obstination sur des 
positions rappelant parfois les anathè- 
mes des guerres de religion). Bien que 
né seulement en 1934, Niklaus Wirth 
avait, déjà avant Pascal, une grande 
expérience de la construction de langa- 
ges : ingénieur électronicien de l’ETH, 
il avait pu travailler à Stanford sur PL 
360, puis Algol W ; il recommença 
vers 1975 en créant Modula, profondé- 
ment transformé entre 1977 et 1980 en 
Modula II. Il existe d’ailleurs 
aujourd’hui aux États-Unis, par exem- 
ple, un « Journal of Pascal, Ada & 
Modula-2 ».…. 


Un autre successeur de Pascal est 
sans doute le langage C, très en vogue 
aujourd’hui car lié au système Unix 
d'AT&T. Il est né en 1972 dans les 
laboratoires de la célèbre Bell Tele- 
phone à Murray Hill (New Jersey), 
d’une équipe dirigée par Dennis Rit- 
chie. Le chapitre 1 de l'excellente 
introduction de Claude Nowakowski 


(« Programmer en C », PSI 1984) et la 
traduction du livre de base de Ritchie 
et Kernighan (Editions Masson) nous 
apprennent qu’il descend d’une longue 
chaîne algblique, par l'intermédiaire 
de CPL (Strachey, 1965) BCPL 
(Richard, 1969) et de « B » de Ken 
Thompson en 1970... 


Blaise Pascal, 


génie scientifique 


Langage très structuré comme Pas- 
cal, très original, par certains côtés 
proche d’un assembleur, C est promis 
à un grand avenir : il est puissant, effi- 
cace, utilisable en gestion et en calcul, 
implémentable sur des machines de 
plus en plus nombreuses. 

Au départ, il était plutôt défini pour 
aider à la conception de 
compilateurs… 


La littérature disponible à son sujet 
est heureusement en pleine extension et 
permet donc de se faire une idée de ses 
caractéristiques. 


Toute la production des langages 
modernes est donc, comme on le voit, 
née de Fortran et d’Algol, mais surtout 
fortement marquée par l’œuvre princi- 
pale de Wirth : sans aucun doute, il a 
bien fait de placer publiquement son 
travail sous l’invocation de Blaise Pas- 
cal, esprit remarquable et universel, 
lié à l'informatique par tant de 
côtés (première machine à calculer à 
connaître une fabrication en petite 
série avec prospectus publicitaire et 
représentant de commerce attitré — 
Roberval, au demeurant professeur au 
Collège de France... —, travaux 
mathématiques admirables en combi- 
natoire, calcul différentiel et intégral et 
probabilités, texte sur l’« esprit géo- 
métrique »). L'influence de Pascal ne 
saurait se limiter aux Pensées ou aux 
Provinciales, par lesquelles on est initié 
à son œuvre au lycée : très bientôt, 
peut-être par le biais de leurs ordina- 
teurs, les collégiens finiront par savoir 
que c'était aussi un génie 
scientifique. 


André WARUSFEL 
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CONVERSION DÉCIMAL-HEXADÉCIMAL 


UN BONHEUR DE TABLE 


Pouvoir sortir sur une imprimante 
une table de conversion décimal-hexa et retour, 
pour que chacun puisse en avoir un exemplaire, 
c'est pas ça, le bonheur ? 


L existe, c'est vrai, des esprits matheux qui jonglent dans leur tête, 
s'amusent avec les bases et convertissent de décimal en hexa comme 


d’autres font les règlements de la Sécurité Sociale, 
c'est-à-dire visiblement en pensant à autre chose. Kendons-leur hommage. 
Il existe aussi, ce n’est pas moins vrai, d'excellents petits programmes 
de conversion décimal-hexadécimal, Ils n’ont qu'un défaut : ils ne 
sont jamais là quand on a besoin d'eux. Un défaut à réparer ! 


Laissant les convertisseurs à 

ceux qui ont un œil tourné vers 
l'avenir (d’où ce léger strabisme qui 
fait leur charme), je me rabats réguliè- 
rement, à l’ancienne, sur l’écrit- 
papier : il y a, dans un de mes premiers 
livres d’informatique, une table de 
conversion. Et lorsqu'il tombe par 
terre, c’est là qu’il s’ouvre, avec la 
crasse vénérable, les ronds de fonds de 
verres et les coins cornés, toute la 
chaude patine des pages complices cent 
fois relues. Comme je ne peux tout de 
même pas le prêter à tout le monde, je 
vous propose un programme qui sort 
sur imprimante une table identique à 
celle de mon livre. Il est écrit pour 
n’importe quel Commodore muni, ne 
serait-ce que temporairement, d’une 
imprimante, mais son adaptation à 
d’autres matériels ne doit poser aucun 
problème. 


A l’origine, il devait servir dans le 
* cadre d’un club, permettant à chacun 
de convertir gaiement sans avoir à se 
battre à quinze sur un même livre. 
Pourtant, depuis, chez moi, j’ai collé 
des tables partout : dans tous mes clas- 
seurs, au mur, sous mon ordinateur, 
pour ne pas avoir à chercher. Mais 
trêve de détails intimes, allons droit au 
pratique : comment s’en sert-on ? 


D'hexadécimal en décimal, ça 
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BONSOIR, J'Ai RÉSERVÉ , 
UNE TABLE DE CONVERSION 
Pour 2 PERSONNES! 


dépend si le nombre à traduire com- 
porte deux chiffres ou plus. S’il com- 
porte deux chiffres, pas de problème, 
on le cherche dans la colonne du milieu 
(voir page suivante), celle marquée 
HEXA P.FA, et on a la réponse dans 
la colonne de gauche, celle marquée 
DEC. C’est ainsi qu’à gauche de 9F, 
écrit 009F, on lit 159. 


Si le nombre hexadécimal comporte 
quatre chiffres, on le coupe en deux 


si Vous Vouzez. 
BIEN, ME 
(4 D s SUIVRE … 


par le milieu. $5BD4, par exemple, 
sera donc tronçonné en 5B d’une part 
et D4 d’autre part. La moitié gauche 
est appelée « octet de poids fort » et la 
moitié droite « octet de poids faible ». 
On commence par chercher 5B dans la 
colonne du milieu, mais cette fois-ci il 
faut regarder ce qu’il y a en face dans 
la colonne de droite marquée HEXA 
P.FOR. On lit 23296, et on recopie ce 
nombre sur un bout de papier, sur une 
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tablette de cire, ou au doigt sur l’écran 
(si on a une tartine beurrée à la main). 
Reste à trouver D4, l’octet de poids 
faible. Colonne de gauche, on lit en 
face : 212. Une rapide addition donne 
23508 et on ne gagne rien si on a trouvé 
la bonne réponse. 


Si le nombre hexadécimal comporte 
trois chiffres, on force un zéro en tête 
et l’on est ramené au problème précé- 
dent. 


Quant à la conversion dans l’autre 
sens (un thème, quoi !), si le nombre 
est inférieur à 256, c’est simple, on le 
cherche en colonne de gauche, et on a 


la réponse au milieu. Sinon, on cher- HÉRSMANTE 

che dans la colonne de droite le nom- 238 1F INkÉVSs 
bre inférieur le plus proche et. il vaut ,240 PRINT 

mieux prendre un exemple, Soit un 2 


"190 
rs 
208, 


LS 
PRINT 


(21 
SUR SHPRz 


Mia us 
PRINT 


EUX ERESUNESS 


Hextable (prononcer Ex-taibeule) 
Programme pour ZX81 et imprimante 


Auteur François J. Bayard 
Copyright LIST et l’auteur : 


DE SEL 
CE. FROGRANHE SOr 
AAÎTE 
"UNE TABLE DE CONVE 
pi PECIMAEFOERS SUR D 
“FRAPPER B SI L I 


‘0 


"EST rois 
* THEN GOTO 253 


233 


nombre entre 256 et 65536. Au hasard, 270 LPRINT.E iA AS: EE 
1984. On parcourt d’un index agile la 280 1F 1/33=INT (1/80) THEN LPR 
colonne de droite. 2048, c’est trop. le Sao’ ÉDR Ji fo + SES 
nombre immédiatement inférieur est 328 LET Red" 
1792. En face de 1792, colonne du 350 EL: BRPEN TO );A$; 
milieu, on trouve 07 (0007, en fait) et 388 Lemanr ae; 
on prend note. Reste alors à se livrer à 388 LPRiINT NS DEN "x 2 FO ne; 
une soustraction : 1984 — 1792 = 192, "$èo NEXT 9 
à chercher 192, colonne de gauche, on 298 KEX? x 
lit au milieu CO (00C0, en fait). On 438 5-94 
raboute les deux moitiés, on met un %$8 BRENT FER 
dollar en tête pour bien montrer qu’il 469mREn 414 DECIMALOHEXA xx 
s’agit d’hexa, et on obtient $07C0. 488 ruR H=1 TO 

À 4936 LPRINT Enrs ET Cÿ; 
Nous sommes en l’an de grâce $07C0. 5ae LET D=16# (D-2NT 
Tiens, pour l’an prochain, j’enverrai 5239 RETURN 


Hextable (prononcer Ex-taibeule) 
Programme pour Commodore et imprimante 
Auteur François J. Bayard 

Copyright LIST et l'auteur 


C “HE: lai 


In 


128 E$=<EE+" F.FA F.FOR " 
A PRINT'CCLETERVEIHESTABLE COIN € OCLH 
1" 
154 FRIHT" CE FRUGRAMME SURT SUR 
FRIMANTE" 


QECTIMALHEZRA" 


EQ] SI L'IMPRIMANTE EST FRETE." 
4 GET F#:IF F#="" THEH 13€ 
IF F#ESUI" THEN 536 


ECRVECT" 
ÜPENS + 
FRIHT#4., 
A FRIHT#H4, 
FRIHT#4 


Dig rs 0$ +08 2 C4 
E+:E$:E$:E# 


FOR I=1 TO Ed:FRINT#4,R# ; 

FOR J=E : 1 

PRINTH4. FRHLES,30: 

PRINT#4, FH: 2FRINTHS,AS 
FIGHTES (CE+ETREC #ZSES , 55 


FRINT#S4, 


HET JT:PRINTHY:MERT I 
CLOSE 4 
FEINT'EICLERICEVSITERMIHECEYSOI. 


FRIHT'COUHHIUNE TABLE CE COHYERSTI OH 


1 FRINT'COUMMIEUR QUATRE COLOMHES. 
& FRIHT'COOHHICOCUNNAIFRAPFPER CEVSIICRS 


FÉIHT"CONMHICRYSI IMPRESSION EH COUR 


C4 


“:EH0 


4 FEM bi DECIMALSHESR RAR RRAEEE 
SE =1T04 CAS: FRINT#4, CHR 
BK PI + 20e 1EkCO-040 MEAT 2 


FETUEH 
FEAC'T. 
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… Extraits de la 
table de conversion 
décimal-hexadécimal 


DEC 


NAN P QE 90 ONU CN 
@ 
[1 
[11 
Li] 


Dion 0 D 6 0 0 QE 


55296 


(exemple avec ZXB81 
et imprimante) 


des cartes de vœux avec un gros $07C1 
dessus, ça en surprendra plus d’un. 


Pour ceux qui veulent adapter ce 
programme à leur machine, je signale 
ceci : 


e CHRS$(32) (ligne 110 du programme 
pour Commodore), c’est tout simple- 
ment un espace ; 


e GET (ligne 190) attend un caractère 
au clavier (il correspond au INKEYS 
de certains Basic) ; moyennant une 
petite transformation, il peut être rem- 
placé par un INPUT ; 


e les caractères de contrôle de curseur 
(entre crochets) sont seulement là pour 
faire joli ; 


# , pour sortir sur imprimante, on ouvre 


un fichier (ligne 220) et l’on écrit des- 
sus (PRINT # 4,), puis on le referme 
poliment (ligne 320). Essayez 
LPRINT 


e enfin, le signe ‘‘%”’ (ligne 350) dési- 
gne un nombre entier ; au lieu de D% 
= D, on peut faire X = INT(D). 
Notons au passage l’astuce du sous- 
programme de conversion (elle n’est 
pas de moi) : au lieu de mettre en 
DATA les chiffres et les lettres de O à 
F, on utilise le fait que ‘‘0”’ c’est 
CHRS$(48) et que CHR$(57) c’est ‘9’. 
Donc CHR$(48 + N) rend compte des 
chiffres de O à 9. Mais si N vaut 10, 
alors le chiffre hexa est ‘A’, c’est à 
dire CHRS (65), et non CHRS (57). 
Qu'’à cela ne tienne !‘Il est si simple de 
se servir des booléens dont parlait 
Robin Bois dans le numéro 1 de 
LIST : lorsque N est inférieur à 9, 
l’expression (N>9) est fausse, donc 
vaut 0 ; lorsque N est supérieur à 9, 
l'expression (N>9) est vraie, donc vaut 
— 1. Si l’on multiplie l’expression par 
7, (N>9)x7 vaut 0x7, soit 0, si N est 
inférieur à 9 ; et — 1«7 soit —7, si N 
est supérieur à 9. Par conséquent, 
(48 + N —(N2>9) 7), tant que N est 
inférieur à 9, vaut 48 + N — O0 soit 
48 + Net sort un caractère numérique 
entre ‘‘0”’ et ‘‘9””. Mais quand N vaut 


10, (48 + N — (N > 9) 7), vaut 
48 + N — (-— 1) x7 soit 48 + 10 
— (— 7) = 65, et sort ‘‘A’’. 


Evidemment, pour le ZX 81, le pro- 
blème ne se pose pas, puiqu’il a un 
code à part, où ‘‘0”’ = CHRS (28) et 
où les lettres suivent les chiffres ; ‘* A’? 
= CHRS (38). Il suffit donc de deman- 
der CHRS(28+ N). D'ailleurs, sur 
ZX, une expression vraie vaut 1, et non 
— 1, alors. pour l’exemple, la trans- 
position a été faite. Mais, seulement 
pour l’exemple ! 


François J, BAYARD 
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INTERPRÉTEUR ET COMPILATEUR 


EH BIEN, 


COMPILEZ MAINTENANT 


N langage de programmation n’est pas directement compris par un 
processeur, Celui-ci ne peut exécuter que ses codes. Une traduction 
s'impose, Elle peut avoir lieu de deux manières : soit globale, grâce à un 
compilateur, soit instruction par instruction, grâce à un interpréteur. 


La possibilité d’utiliser un lan- 

gage symbolique de haut niveau 
(en mode interactif) a contribué forte- 
ment au succès des micro-ordinateurs. 
Le langage Basic, développé initiale- 
ment sur les gros systèmes (travaillant 
en temps partagé), a été universellement 
adapté aux ordinateurs individuels. 


Il faut voir derrière tout langage un 
volumineux programme de traduction 
qui permet de passer d’un texte plus ou 
moins symbolique (« programme- 
source »), à une liste de codes directe- 
ment exécutables par le processeur 
(« programme-objet »). 

Les compilateurs génèrent, à partir du 
code-source, un code intermédiaire qui 
est ensuite transformé en un programme 
directement exécutable. Les interpré- 
teurs travaillent exclusivement sur le 
texte-source d’origine : les instructions 
sont décodées une par une au cours de 
chaque exécution. Les compilateurs 


Cho 
OÙ 


Uuucel > — 
e roi, de la 
Compilation 
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PRO, TRE 


offrent donc une grande rapidité d’exé- 
cution, et les interpréteurs la possibilité 
de suivre pas à pas le déroulement du 
programme (ce qui facilite considérable- 
ment la mise au point). 


Aujourd’hui, le programme com- 
plexe qui permet au processeur de tra- 
vailler en Basic est logé dans une 
mémoire électronique (un minuscule 
boîtier de plastique noir placé sous le 
capot de l’engin) : on imagine mal le 
degré d’élaboration qu’atteint ce genre 
de programme (Basic est inspiré du For- 
tran, autre langage symbolique dont 
l'élaboration du compilateur a demandé 
un travail énorme, près de 18 années- 
homme vers 1956). On peut s’en faire 
une bonne idée en désassemblant le 
Basic, ou tout autre programme de ce 
genre (interpréteur APL, compilateur 
Fortran, etc.). 


Et ce domaine n’est pas interdit à 
l'amateur. Un coup d’œil sur la presse 


ê 


ob | 


eo XXI D 
IRIS 


non professionnelle le prouve : des rai- 
sons très variées et parfois curieuses ont 
conduit des amateurs à écrire des inter- 
préteurs Basic, Logo, Pilot... et des 
compilateurs Pascal, C, Ada (!). Cer- 
tains ont été jusqu’à créer des langages 
spécialisés (Basex,.….). 

Il est impossible ici de détailler par le 
menu le fonctionnement d’un compila- 
teur ou d’un interpréteur. On doit se 
contenter de quelques notions 
importantes. 


P-machine, 


l'ordinateur fait idée 


L’exemple du compilateur Tiny- 
Pascal peut les présenter : facilement 
accessible, il met bien en évidence le 
principe de traduction-exécution. Le 
programme-source (voir exemple page 
suivante) est converti en « P-code » (ce 
code intermédiaire est le langage de pro- 
grammation d’une machine fictive dite 
P-machine). Il est ensuite exécuté à par- 
tir d’un interpréteur simple, mais effi- 
cace : il conserve des possibilités d’aide 
à la mise au point (trace, point d’arrêt, 
reprise,.…). L'avantage de ce principe 
est de se limiter à l’écriture d’un unique 
compilateur standardisé (programme 
long). Seul l’interpréteur (programme 
court) est spécifique d’un système 
donné. D'autre part, dans certaines ver- 
sions, le programme en « P-code » peut 
lui-même être compilé en code-machine 
(dit « langage-machine »). 

Un compilateur peut être écrit dans 
presque n’importe quel langage. S'il 
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Figure 1 
Traduction en deux étapes 


Exemple de traduction-exécution 
avec Tiny-Pascai 


Programme-source en Tiny-Pascal 


VAR I : INTEGER ; 
BEGIN 

FOR I :=1 TO 10000 DO 
END. 


Programme en P-code 


0 JMP03 
3 INT 04 
6LITO1 
9 STO 0 19 

12 LIT 39 16 

15 CPYO 

16 LOD 0 19 

19 GEQ0 

20 JPCO 0 33 

23 LOD 0 19 

26 INCO 

21 STO 0 19 

30 JMP 015 

33 DECT 

34 RETO 


Sauter à l'instruction 3 


Empiler la constante 1 
Stocker (en position 19) 


Copier sommet de pile 
Charger (sommet de pile) 
Test « supérieur ou égal » 


Charger 


Stocker (en position 19) 
Sauter à l’instruction 15 


Interpréteur 


Augmenter le pointeur de pile de 4 
Empiler la constante 10000 

Si sommet de pile vrai, sauter en 33 
Incrémenter pointeur sommet de pile 


Décrémenter pointeur sommet de pile 
Retour 0= fin de programme 


Compilateur 


cessives, jusqu’au but final. Avec le 
compilateur Tiny-Pascal, la traduction 
se fait en deux étapes. 


La machine fictive ou P-machine 
comprend quatre registres de 16 bits : 
e T registre du sommet de la pile de tra- 
vail (pointeur) ; 

° B registre d’adresse de base pour le 
calcul des adresses dans la pile 
(pointeur) ; 

° P registre d’adresse du programme 
(pointeur) ; 

e I registre d’instruction. 


La mémoire de la P-machine com- 
prend deux zones : 


P=3 

T=T+4 

T=T+1:S[T]=1 

S[base(0) + 19] = SIT]; T = T—1 
T=T+1;S[T]= 10000 
T=T+1:S[T]=S[T—1] 
T=T+1;S[T]= S{base(0) + 19] 
S[T]=SIT] > = SIT +1] 

Si S[T] vrai, P=33; T=T—1 
T=T+1;S[T}= S[base(0) + 19] 
T=T+1 

S[base(0) + 19] = S[TI;T = T—1 
P=15 


T=T—1] 


SIT] : pile de données 
T : pointeur de pile 
P : pointeur de programmes 


existe en deux versions (une en Tiny- 
Pascal et l’autre en Basic, par exemple) 
on peut se livrer au contrôle suivant : 
compiler le compilateur version Tiny- 
Pascal en P-code à l’aide de la version 
Basic ; compiler le compilateur version 
Tiny-Pascal au moyen du compilateur 
obtenu en P-code. Les deux codes obte- 
nus doivent être rigoureusement 
identiques. 


Cela dit, le Tiny-Pascal, sous- 
ensemble du Pascal, convient très bien 
à l’écriture de compilateurs. Sa sou- 
plesse permet d’ajouter des éléments ou 
de les compléter par améliorations suc- 
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e la zone des « P-codes », programme 
à exécuter (zone fixe) PRG ; 

e la zone de travail, la pile des données 
S (Zone variable) qui contient toutes les 
variables de la procédure active et cer- 
taines adresses. 


Le compilateur ne détermine aucune 
adresse absolue : celle-ci est calculée au 
moment de l’exécution (allocation dyna- 
mique). La pile comprend un ensemble 
de blocs, correspondant aux procédures 
actives. À la base de chaque bloc, trois 
emplacements SL, DL et RA permettent 
le chaînage : SL (Static Link) pour la 
hiérarchie des procédures, DL (Dyna- 


mic Link) pour retrouver la base précé- 
dente à la fin de chaque procédure et 
RA (Return Adress) pour localiser en 
zone PRG (P-code), l’instruction à exé- 
cuter après l’appel de procédure. 

Le registre de base B pointe toujours 


l’emplacement de départ du segment de 
bloc de données sur la pile. 


Pour mieux comprendre ce méca- 


nisme subtil, il suffit d'examiner cer- 
tains ordres de cette P-machine (voir 
l’encadré « certains ordres de la P- 
machine »). 


Les interpréteurs sont basés sur le 
même principe : décodage d’une ins- 
truction, exécution, passage à l’instruc- 
tion suivante. On peut donc progresser 
pas à pas, avec des arrêts à volonté : 
toute chose bien agréable et efficace 
dans la mise au point rapide des 
programmes. 


La technique du code intermédiaire, 
type « P-code », est classique, et les 
codes retenus sont très variés. Autre 
exemple : l’un des nombreux compila- 
teurs C génère un code d’assemblage 
directement utilisable, comme source, 
par un macro-assembleur. 


Avant de voir comment le texte- 
source est transformé en P-code, c’est- 


Certains ordres de la P-machine 


e CALL L,A: appel du sous-pro- 
gramme situé à l’adresse À, de niveau L. 
Les actions sont : 

SIT +1] = BASE (L) 

SIT +2] = B 

SIT +3]=P 

B=T+1 

P= A (adresse de SP) 

BASE (L) est la fonction qui permet 
de remonter à la base correspondant au 
niveau d’appel L. 

FUNCTION BASE (L) : Bi=B 
Tant que L>0 
B1=S [Bi] 
L=L—1 
BASE = BI 
+ RETURN : fin de procédure, retour. 
Les actions sont : 
T=B-1 
B = SIT +2] 
P=SIT +3] (retour) 
+ ADD : addition. Les actions sont : 
T=<T-1 
SIT] = SIT] + SIT +1] 
e LOAD L,D': chargement variable 
niveau L, déplacement D. Actions : 


T=T+1 
S[T]= S[IBASE (L) + D] 
° STORE L,D : sauvegarde variable 


niveau L, déplacement D. Actions : 
SIBASE (L) + D]=S[T] 
T=T-1] 
+ JUMP A : saut à l’adresse A. Action : 
P=A 
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à-dire comment se fait la compilation 
proprement dite, il faut définir parfai- 
tement le langage. 


La description formelle de sa syntaxe 
se fait couramment au moyen de dia- 
grammes (Conway, bien connu des uti- 
lisateurs de Pascal). 


Programme 
source 


Figure 2 
Link rend un module exécutable 


Ils présentent deux avantages : d’une 
part, ils définissent parfaitement la 
syntaxe, d’autre part, ils conduisent 
l'écriture du compilateur suivant quel- 
ques règles élémentaires. Leur configu- 
ration exprime aussi les propriétés du 
langage associé à l’algorithme d’analyse 
syntaxique (théorie des langages). Ce 
langage doit obéir à des règles rigou- 
reuses (récursivité, réduction des 
phrases,.…..). 


Attention : 


Vitesse limitée 


Le compilateur comprend donc des 
routines d’analyse et de génération de 
codes, des tables de variables et de fonc- 
tions, des routines de tri et de recher- 
che dans les tables, etc. L’étude de la 
liste d’un compilateur est un exercice 
enrichissant. On y trouve une grande 
variété d’algorithmes avec, en prime, 
récursivité, optimisation, etc. 

Ces notions sont très succinctes, et 
tous les compilateurs ne sont pas réali- 
sés selon ce principe. Certains génè- 
rent, comme objet intermédiaire, un 
code relogeable. Le programme, ou cha- 
que partie du programme, est traduit 
dans un code proche du langage- 
machine, donc presque utilisable, mais 
de nombreuses adresses ne sont pas 
figées, et le code est translatable. Un 
programme spécifique (LINK) met bout 
à bout les parties de programme (figure 
2), y compris les sous-programmes de 
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TT 


Compilateur 


Bibliothèque 


bibliothèque, et calcule à chaque étape 
les adresses absolues du code 
exécutable. 


A titre d’exemple, le module-objet 
généré par le compilateur Fortran 
Microsoft comprend deux types de 
codes, absolus et relogeables, sous 
forme de chaînes binaires : 


Programme 
objet 


Sous- 
programmes 


Module 
exécutable 


° premier bit à 0 : absolu. Les huit bits 
suivants sont chargés comme octet 
absolu ; 

e premier bit à 1, lire les deux bits 
suivants : 

00 code spécial (nom de programme, 
module de librairie, références internes 
ou externes, longueur du programme, 
bases pour les calculs d'adresses, fin de 
programme...) ; 

01 programme (relatif), chargement 
des 16 bits suivants après ajout de la 
base du programme ; 

10 donnée (relatif) ; 

11 zone des variables communes 
(relatif). 


Cette opération prend souvent beau- 
coup de temps sur les petits systèmes à 
cause des recherches des sous- 
programmes de bibliothèque système 
(librairie) ; en contre partie, les pro- 
grammes absolus qui en résultent sont 
très performants pour les calculs à répé- 
tition (tris, recherches.…). 


Les tests de vitesse donnent quelques 
indications, mais il faut être prudent ! 


Signalons enfin deux langages de pro- 
grammation qui méritent une attention 
particulière : APL et Forth. Tous deux 
sont très bien adaptés aux micro- 
ordinateurs. Ils restent méconnus à 
cause du « phénomène » Basic : la 
force de l’habitude.. Les performances 
de ces langages interprétés ou « semi- 
compilés » ne sont pas prises en consi- 
dération comme elles le devraient 
(encombrement mémoire faible et 
vitesse de traitement élevée). 


Les passionnés de programmation ou 
les utilisateurs désireux d’entreprendre 
des travaux plus sérieux doivent exami- 


ner les différents langages symboliques 
car les possibilités du Basic sont limitées 
(même si, théoriquement, il permet de 
traiter tous les problèmes). Il n’est pas 
toujours facile de choisir le plus court 
chemin entre l’algorithme et le pro- 
gramme exécutable. 


Par exemple, la programmation de 
jeux a de nombreux adeptes, mais les 
algorithmes sont parfois de très haut 
niveau et ils exigent l'emploi du langage- 
machine : saisie spéciale sur clavier, ani- 
mation rapide, graphisme détaillé, effets 
sonores, synthèse vocale, conversion 
analogique-digitale (manettes à poten- 
tiomètres), calculs mathématiques, etc. 


Trois solutions sont envisageables 
pour une telle programmation : faire 
appel à l’assembleur, utiliser un compi- 
lateur, programmer en Forth. 


Si l’on s’en tient aux jeux, les sous- 
ensembles de langage de haut niveau 
peuvent parfois donner des résultats 
surprenants (Tiny-Pascal, Tiny C,...). 
Leur coût est nettement moins élevé que 
celui des logiciels professionnels, l’en- 
combrement mémoire est réduit, les 
temps de compilation sont plus courts, 
le codé généré est plus efficace. 


Il reste à savoir si les nouveaux lan- 
gages de programmation iront dans ce 
sens : peut-être des (bonnes) surprises à 
attendre. 


Claude NOWAKOWSKI 
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_ LIST À TESTÉ 


I l’on se souvient qu'Atari fut le pionnier de la 
console de jeux vidéos et des programmes 

d’arcades, on ne doit pas être trop étonné par le 
Basic du 800 XL, une petite « bombe » dans le 
domaine des sons et des graphiques : des 
couleurs, des demi-teintes, de la musique presque 
comme un synthétiseur. Facile à apprendre pour 
un néophyte, sa richesse cachée enthousiasmera 
les vieux routiers de la programmation. 


Quelques lignes suffiront à dé- 

crire une machine qui se fond 
dans la production actuelle. Un coffret 
lesté, de quarante centimètres de large, 
facile à poser sur les genoux (ou une 
table), un clavier mécanique tradition- 
nel au toucher ferme, un connecteur de 
cartouches de programmes et des prises 
d'extensions munies d’un standard pro- 
pre à Atari font que cet appareil se situe 
déjà au-dessus de la moyenne. 


Un net 


avantage 


Il s’inclut dans la gamme des domes- 
tiques et a été pensé en fonction du 
banal téléviseur de la maison. Aucun 
risque de brûler le tube cathodique si 
vous le laissez branché toute la nuit : dès 
que l’on cesse de toucher au clavier, 
sous contrôle d’une horloge interne, 
l’affichage change périodiquement de 
couleur, même en cours d’exécution 
d’un programme. Un regret, toutefois : 
seule la version PAL permet une pleine 
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utilisation des couleurs. Il est donc pré- 
férable de se munir d’un téléviseur 
multi-standard. 


Le clavier permet la frappe en majus- 
cules, en minuscules (à l’aide de l’habi- 
tuelle touche SHIFT), et comporte 29 
caractères semi-graphiques (par pression 
simultanée de la touche « CONTROL » 
et d’une touche alphabétique). Ces 
caractères très utiles pour améliorer la 
présentation (encadrements, petits 
symboles.) n’ont hélas aucun rapport 
avec ceux retenus par les systèmes télé- 
tex (Télétel, Antiope, etc.). Les fervents 
du traitement de texte pourront substi- 
tuer à ces caractères graphiques, un jeu 
de minuscules accentuées à l’euro- 
péenne, à l’aide du simple ordre ‘POKE 
756,204’ qui modifie l’adresse mémoire 
à laquelle débute la table de définition 
du générateur de caractères. L'affichage 
se fait sur 24 lignes de 40 caractères, 
mais seules les majuscules sont utilisa- 
bles pour écrire les ordres Basic. 


L'éditeur permet la saisie d’une ligne 
en positionnant le curseur en n’importe 
quel endroit de celle-ci. Quatre touches 
le déplacent dans les autres directions, 
par pression simultanée sur la touche 
« CONTROL ». Malheureusement, 


l'insertion et l’effacement de caractères 
dans une ligne nécessitent également 
cette double manipulation et elles doi- 
vent être répétées pour chaque nouveau 
caractère introduit (ou effacé). 


Avec cet outil l’écriture de program- 
mes en Basic ne pose plus guère de pro- 
blèmes, d’autant qu’il est possible d’in- 
troduire la plupart des ordres et com- 
mandes sous une forme abrégée limitée 
à un ou deux caractères suivis d’un 
point. Ainsi, G. peut être tapé à la place 
de GOTO. Toutefois la longueur d’une 
ligne Basic reste limitée à 114 caractè- 
res, soit trois lignes d’écran. 


La première caractéristique qui 
frappe le concepteur de programmes est 
la correction instantanée des erreurs de 
syntaxe. Nul besoin d’attendre le ‘RUN? 
suivi du sempiternel ‘SYNTAX 
ERROR’ pour savoir pourquoi et où 
l'écriture est défaillante. On le saura dès 
le RETURN’ qui marque la fin d’une 
ligne d'instructions. Sur ce point-là, le 
Basic Atari prend un avantage certain 
sur son concurrent Microsoft et les 
débutants (ou les maladroits) 
apprécieront. 


En fait, dès qu’une ligne est intro- 
duite à partir du clavier, l’Atari en fait 
l’analyse : le texte est stocké et la 
syntaxe des instructions est vérifiée 
immédiatement. En plus, chaque fois 
qu’il rencontre un nom de variable 
numérique, l’Atari le compare à une 
liste des variables précédentes ; s’il n’y 
figure pas déjà, il l’ajoute et réserve en 
mémoire un certain nombre d’octets 
pour y ranger ses valeurs futures. 


Cette particularité unique permet à 
tout instant de connaître le contenu 
d’une variable numérique. Contraire- 
ment aux autres Basic, la modification 
d’une ligne ne remet pas à zéro la liste 
des variables, pas plus que leurs valeurs. 
Cette mise en réserve des données qui 
permet, par exemple, de vérifier un test 
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nee 


Atari 800 XL et 
E Basic de l’Atari 600 XL est le même que celui du 


Atari 600 XL 
800 XL. La présentation du Basic faite ici est donc 


valable pour les deux ordinateurs. Ce qui les différencie, c'est essentiellement la taille de la mémoire 
vive : elle est de 16 Ko pour le 600 XL et de 64 Ko pour le 800 XL. 


Il semblerait qu'Atari veuille arrêter la fabrication du 600 XL (fin 1984) et son prix actuel est d'environ 


1 600 FF tic (le 800 XL valant environ 2 500 FF ttc). 


ou encore le domaine de validité d’une 
fonction, est particulièrement apprécia- 
ble pendant la mise au point d’un 
programme. 


Les chaînes 


se déchaînent 


L’Atari ne connaît que deux types de 
variables : numérique ou alphanuméri- 
ques. Les premières sont automatique- 
ment gérées par le Basic, qui réserve huit 
octets pour stocker chaque valeur, plus 
un octet par lettre qui en compose le 
nom. Virtuellement, il n’y a aucune 
limitation (hormis la taille de la 
mémoire) pour choisir les noms des 
variables. En outre, TY et TYPE repré- 
sentent deux variables distinctes. 


Le Basic Atari ne fait aucune distinc- 
tion entre variables entières ou réelles : 
la précision est de 9 chiffres significa- 
tifs. Pour les calculs mathématiques, 
l’Atari fait mieux que ses concurrents 
et permet de traiter les valeurs numéri- 
ques jusqu’à 9.999999999 E + 97, au lieu 
des habituels 10 E +38. 


Les tableaux de valeurs (ou matrices) 
sont autorisés, mais leur déclaration est 
obligatoire, même si les indices utilisés 
ne dépassent pas 10. Curieusement, le 
fait de dimensionner un tableau n’ini- 
tialise pas les valeurs à 0. Après tout 
ordre DIM, il est prudent de réaliser 
manuellement cette mise à zéro, par 
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exemple à l’aide d’une boucle 


FOR...NEXT. 


Une remarque encore sur les bizarre- 
ries qui émaillent ce Basic non stan- 
dard : il est impossible de réaliser la sai- 
sie d’un élément de tableau à l’aide de 
l’ordre INPUT. Il faudra utiliser une 
variable intermédiaire. Ainsi la succes- 
sion d’ordres INPUT X : N(0)= X sera 
nécessaire pour remplacer le banal 
INPUT N(0). 


La particularité essentielle de |’ Atari 
provient de la gestion de ses chaînes de 
caractères. Si la plupart des Basic gèrent 
des chaînes entre 0 et 255 caractères, 
Atari ignore cette limitation et on peut 
ranger des kilomètres de texte sous un 
seul nom de variable. Une contrainte 
toutefois : il faut avoir prédimensionné 
auparavant ces variables à l’aide d’un 
ordre DIM. 


Si, par accident, on dépasse le nom- 
bre prévu, les caractères excédentaires 
sont ignorés, une troncature se faisant 
automatiquement, sans apparition de 
message d’erreur. En revanche, il est 
impossible de créer des tableaux : ils 
sont réservés aux seules variables numé- 
riques. Pour en simuler, il faut créer une 
chaîne unique et la subdiviser en tron- 
çons d’égale longueur grâce à des opé- 
rateurs de troncature. 


Ici, nul besoin d’utiliser les classiques 
MID$, RIGHTS ou LEFT: une 
syntaxe unique, très souple permet 
d’exécuter toutes ces fonctions de trai- 
tement de chaînes avec un seul ordre. 
Les opérations de concaténation se font 


sans appel du symbole d’addition et 
sont un jeu d’enfant. Seul, peut-être, 
lPéquivalent de la forme RIGHTS est 
plus délicat à manipuler. 


Les habituelles fonctions, ASC, 
STR$, LEN et VAL sont présentes. 
Mais attention, la forme VAL ne s’ap- 
plique qu’aux caractères numériques 
(VAL (&« A ») se solde par un message 
d’erreur). 


Les messages d’erreur sont succincts 
et se limitent à un code sur deux chif- 
fres. À chacun de les gérer, à l’aide de 
l’ordre TRAP qui les intercepte sans 
interrompre le programme. Judicieuse- 
ment, un ordre POP permet de sortir 
prématurément d’un sous-programme 
(quoiqu'il soit possible de le boucler sur 
lui-même sans trop de risques, à l’excep- 
tion d’une hypothétique saturation de 
la mémoire). 

La structure d’un programme en 
Basic Atari est, en fait, plus simple que 
sur la plupart des autres machines, car 
il est possible de mettre des labels qui 
repèrent en clair les parties du pro- 
gramme, sans devoir abuser des remar- 
ques. Il est tout de même plus simple 
d’appeler un sous-programme de musi- 
que à l’aide d’une instruction GOSUB 
MUSIQUE qu'avec l’hermétique forme 
GOSUB 10000. 


Exit les 


caricatures 


Cette « labellisation » est possible 
pour les formes GOTO, GOSUB, ON 
GOTO et ON GOSUB. Même les lignes 
de DATA offrent cette possibilité, avec 
en plus, le pouvoir de choisir sélective- 
ment leur lecture, par un READ suivi 
d’un numéro de ligne, ou par un label. 


Au chapitre des regrets, les tests con- 
ditionnels se limitent au banal IF- 
THEN. Ici, point de ELSE ni de 
WHILE-WEND. 


On retrouve les habituelles fonctions 
arithmétiques et trigonométriques. Cel- 
les qui travaillent sur des angles le font 
en degrés ou en radians. Comme sou- 
vent, la fonction tangente est absente et 
il faut la reconstituer à l’aide de SIN et 
COS. En revanche, la fonction récipro- 
que ATN (pour arctangente) est au 
menu, ainsi que les logarithmes déci- 
maux et népériens. Les tests logiques 
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LIST À TESTÉ 


LE BASIC DE L'ATARI 800 XL 


sont limités à leur plus simple expression 
avec AND et OR. Quant aux valeurs 
booléennes, elles sont représentées par 
+1 pour vrai et O0 pour faux. 


Quant au dessin, l’Atari ne se limite 
pas aux couleurs : il introduit la notion 
de teinte. L’ordre SETCOLOR choisit 
non seulement la couleur (par exemple 
le rouge), mais ajoute un paramètre de 
luminance (qui varie de très vif à pâle). 
Finies les couleurs trop vives, caricatu- 
res de la réalité, il devient possible de 
jouer sur les demi-teintes. Il est dom- 
mage que cette palette se limite en Basic 
à un maximum de cinq couleurs diffé- 
rentes contenues dans cinq registres 
mémoire de 708 à 712. 


Le « sixième 


périphérique » 


En mode texte normal, on utilise une 
couleur de fond, une couleur de bordure 
et une couleur d’impression des textes, 
soit trois couleurs. Il existe deux autres 
modes texte introduits par les ordres 
GRAPHICS 1 ou GRAPHICS 2 qui 
eux, utilisent les cinq couleurs. Dans ces 
deux modes, les caractères sont dilatés, 
réduisant le nombre de colonnes et de 
lignes disponibles. La couleur du carac- 
tère est déterminée par son impression 
en majuscule (ou en minuscule), et son 
code ASCII supérieur (ou non) à 128. 


La syntaxe des impressions est alors 
différente du banal PRINT. Tout se 
passe comme si l’écran était un périphé- 
rique particulier (le sixième) auquel on 
envoie un caractère avec l’ordre 
‘PRINT # 6;’. Si cette notion de péri- 
phérique est courante dans le cas 
d’échanges avec une imprimante, une 
cassette ou un disque, elle est inhabi- 
tuelle dans le domaine des impressions. 


Il existe 13 modes graphiques diffé- 
rents (GRAPHICS 3 à 15), avec un 
maximum de définition de 320 points 
sur 192 en deux couleurs. Bien entendu, 
plus la définition augmente, plus la 
mémoire disponible diminue (8138 
octets occupés par les modes graphiques 
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les plus poussés). Les ordres de dessin 
se limitent au simple point (PLOT) et 
au trait (DRAWTO), la couleur étant 
sélectionnée parmi cinq, à l’aide de l’or- 
dre COLOR. Etrangement, le manuel 
passe sous silence le mode 11 qui per- 
met les dessins avec 16 couleurs diffé- 
rentes sans possibilité de teinte, et avec 
une résolution de 80 x 192. 


Les sons ne sont pas en reste et qua- 
tre générateurs indépendants sont pro- 
grammables sous Basic. L’instruction 
SOUND permet de déterminer, pour 
chaque voix, la fréquence du son, le 
niveau sonore et un degré de distorsion. 
Il ne s’agit pas encore d’un vrai synthé- 
tiseur, mais il faut avouer que les effets 
obtenus sont plus que flatteurs. 


Si les ordres de dessins sont succincts, 
il est possible de faire des remplissages 
de périmètre par une méthode détour- 
née considérant l’écran comme un péri- 
phérique (à l’aide de l’ordre XIO). 


Fiche technique de l’Atari 800 XL 
Constructeur : Atari 
Prix public : 2500 FF tte 
Mémoire vive : 64 Koctets 
Mémoire morte : 24 Koctets 
Langage : Basic Afari 
Variables : neuf chiffres significatifs pour les varia- 
bles numériques ; longueur des variables alphanu- 
mériqués sans autre limitation que la place 
mémoire 
Modes : deux modes texte ; treize modes graphiques 
de 320X 192 points en deux couleurs, à 80 x 192 
points en seize couleurs. 


Dans le même ordre d’idées, il est 
possible de saisir un caractère « à la 
volée ». Il faut ouvrir le périphérique 
clavier par un ordre OPEN # 1,4,0, 
“K:” suivi d’un GET # 1,A. Si 
l’analyse de la valeur de la variable A 
renseigne sur la touche pressée, Atari 
n’a pas choisi la voie de la normalisa- 
tion. Il utilise une codification particu- 
lière, ignorant ASCII : 1 est codé 31, 
2=30, 3-26, 4=24, 5=29, etc. 


Il est possible de saisir un caractère 
à l’écran ou de connaître la couleur d’un 
point à l’aide de la fonction LOCATE. 


Mais attention en l’utilisant : le risque 
de détruire ce caractère (ou ce point) est 
grand, et il faut absolument le remettre 
par un PRINT (ou un PLOT). 


De charmants 


parasites 


Une vilaine « bogue » a été rencon- 
trée par hasard : sous certaines condi- 
tions, l’ordre LOCATE perturbe le con- 
tenu de la dernière chaîne de caractères 
manipulée par le Basic. Pour éviter ce 
problème, il faut utiliser une variable de 
sauvegarde S$, en faisant S$ = A$; puis, 
exécuter LOCATE, et enfin, rétablir A$ 
par A$=SS$. 


Quant au curseur baladeur qui per- 
turbe l’écran, un simple ‘POKE 752,1’ 
se charge de l’éliminer. Dommage que 
le Basic ne possède pas d’ordre spécifi- 
que pour cela, pas plus qu’il n’y a de 
CLS pour effacer l’écran (en fait, il faut 
faire un PRINT CHRS$(125), bien com- 
pliqué). 

Mentionnons également le scroll 
inverse : en imprimant un caractère en 
colonne 39, on provoque un décalage 
vers le bas de toutes les lignes situées en 
dessous. Ce phénomène, éventuellement 
intéressant pour certains jeux, est tout 
à fait parasite en usage normal. 


Il faut louer Atari d’avoir fait des 
choix judicieux pour l'utilisateur 
néophyte. En dépit de quelques « ori- 
ginalités » parfois agaçantes, il est plus 
simple d’apprendre le Basic Atari que 
les versions (plus complexes) de Micro- 
soft. Si certaines possibilités sont 
cachées, elles ne sont pas forcément uti- 
les au débutant mais il est regrettable 
que le manuel livré avec l’appareil ne les 
révèle pas. L’apprenti programmeur 
prendra énormément de plaisir à mani- 
puler les ordres simples dévoilés au 
grand jour, tandis que l’amateur averti 
appréciera la puissance cachée sous le 
capot. 


Alain LA VENIR 
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CURIOSITÉ 


LA CYCLOÏDE : 
PIÈCE QUI ROULE... 


À représentation d’un objet en mouvement, par 
un dessin ou par la pensée, est moins 
évidente qu'on ne le pense. On s'en fait souvent une 
idée fausse qui nous mène, tout naturellement, à un 
paradoxe. Pour s’en sortir, il reste l'expérience. Les 
travaux pratiques deviennent obligatoires. 


Essayons d’imaginer une pièce 

de monnaie, ronde, qui roule 
sans glisser sur une table. Ça semble 
facile. 


Intéressons-nous alors à un point 
de cette pièce, le point A qui, au 
départ, est en contact avec la table. 
Lorsque la pièce a fait un tour com- 
plet, le point A se retrouve en B 
(figure 1). 

La distance de A à B est donc égale 
à la circonférence de la pièce. 


Si l’on s'intéresse à un autre point 
de cette pièce, le point C, on peut 
observer qu’il se retrouvera en D, 
après un tour complet. Mais, le cercle 
de rayon OC (O étant le centre de la 
pièce), plus petit que le cercle de 
rayon OA, a effectué un tour complet 
lui aussi. 


Comme la distance de A à B, appa- 
remment égale à la circonférence de la 
pièce, est égale à la distance de C à D, 
elle-même semblant égale à la circon- 
férence du petit cercle, on en arrive à 
une conclusion intéressante : le péri- 
mètre du cercle de rayon OA est le 
même que celui du cercle de rayon 


Figure 1 : de À à B, la pièce à fait un tour complet 


CR 


A 
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Â4 


à Figure 2 : À doit aller plus vite que C, son trajet est plus long 


OC ! 
l’ « erreur » (car il semble bien qu’il y 
en ait une !), tentons des travaux pra- 
tiques : ils permettent de mieux voir le 
mouvement. Jusque-là, ce mouvement 
n’a été qu’imaginé et l’on s’est peut- 
être trompé. 


Pour comprendre où est 


Reprenons notre pièce et traçons un 
petit point noir sur sa circonférence. 
Puis, faisons-la rouler sans glisser et 
observons l’évolution du point noir 
sur de petits intervalles (figure 2). 


Le mouvement nous apparaît con- 
crètement. Dans un premier temps, le 
point À arrive en A1. Puis, toujours 
en montant, il parcourt un morceau 
de courbe jusqu’à Au, etc. Il arrive 
alors en A4, diamétralement opposé à 
sa position d’origine, puis passe en A: 
en descendant. Enfin, il atteint B. Le 
point À a donc voyagé, il n’a pas 
effectué un simple « tour de pièce », 
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il a parcouru un trajet plus long : ce 
trajet s’appelle une cycloïde. 


Par définition, une cycloïde est la 
courbe engendrée par le point d’un 
cercle qui roule sans glisser sur une 
droite fixe. 


Lorsque la pièce fait un tour com- 
plet, A se retrouve bien en B, et C en 
D. Mais A et C ont parcouru des tra- 
jets différents à des vitesses différen- 
tes selon l'instant. Ainsi, pendant que 
A passait de À à A4, C passait de C à 
C4. Donc, pendant ce temps-là, A 


En route vers Villapuce 


Grâce aux bienfaits de la fée 
« cyclo », vous êtes transformé en 
puce et vous voyagez, selon votre 
choix, sur le bord extérieur ou au cen- 
tre d’une roue de vélo. Pour vous 
aider à choisir, ce petit programme 
vous permet de comparer les distances 
parcourues selon votre position sur la 
roue. 


Ainsi, partant de Paris, vous dési- 
rez vous rendre à Villapuce. La dis- 
tance officielle est de 421 km et le 
rayon de la roue sur laquelle vous 
voyagez est de 1 m (par exemple !). 


L'entrée de ces données permet à 
votre machine de vous annoncer que, 
placé au centre, vous parcourrez bien 
421 km mais, installé sur l'extérieur 
de la roue, vous parcourrez.… 536 
km. L'écart est donc de 115 km. Une 
puce avertie. 
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allait plus vite que C. C’est là que 
l'imagination nous trompe : elle ne 
nous permet pas de représenter la 
vitesse ou le temps sur un dessin. Le 
paradoxe auquel on avait abouti était 
donc dû à une mauvaise visualisation 
du mouvement. 


Une autre représentation de ce 
mouvement qui allie les travaux prati- 
ques à l’abstrait, est celle des équa- 
tions paramétriques. Accompagnées 
d’une représentation graphique, ces 
équations permettent une bonne des- 
cription du phénomène. 


10: INPUT "DISTA . 
MCE EN EM ?" 


4 
INPUT RATON 
ROUE EN M ? 
LL , B 

30: PF=24N+xp 

40: H=ES*É"P 

DO: E=SxB#HXxE-3: 
E=IHT E 

SOTPRINT "PARCO 
URS CENTRE " 
sas" Kti" 

TO FRINT "...ET 
EXT. ROUE 
SEs" kr" 

SO'ESE-É: PRINT 
M"ECART= SES 
LEE FA | 1 

30: GOTG 10 


Figure 3 : un point M (x, y) de la cycloide 
où x = Rt-sint) ety = R{(I-cst) 


2TR 


Dans un repère tel que l’axe des 
abscisses est représenté par la droite 
fixe (A) et l’axe des ordonnées par la 
droite perpendiculaire à (A) et passant 
par À, chaque point M de la cycloïde 
aura, à chaque instant t, des coordon- 
nées x et y définies par : x = R (t-sin 
D ety = R (1-cos t) où R est le rayon 
de la pièce (figure 3). Les problèmes 
posés par la cycloïde ont été résolus 
par les plus grands mathématiciens : 
Galilée, Descartes, Roberval, 
Pascal... 


Un des résultats les plus intéres- 
sants est que l’aire comprise entre la 
courbe et la base est égale au triple de 
l’aire du cercle d’origine (figure 4). 
Quant à la longueur de la cycloïde, de 
A à B, elle est égale à huit fois le 
rayon du cercle. 


3 Figure 4 : les aires S,, S et S, sont égales 


Les amateurs de programmation et 
de tracés de courbes pourront vivre 
les travaux pratiques d’une autre 
façon : les équations d’une cycloïde 
peuvent évidemment être program- 
mées. Et les résultats obtenus alors 
seront plus exacts que ceux obtenus 
par l’imagination.…. 


Anne-Sophie DREYFUS 
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LES COUPS D'ŒIL DE LIST 


_ TURBO PASCAL 
UN COMPILATEUR PASCAL 


URBO PASCAL est un ensemble 
logiciel permettant de développer 
des programmes en Pascal. Bien que 
destiné aux machines fonctionnant 


sous CP/M ou MS/DOS, il 


donnera une bonne raison 


à ceux qui disposent d’un 


Apple 11 d'acheter une carte Z80. 


Pour qui utilise de façon régu- 

lière un compilateur Pascal, les 
performances de Turbo Pascal, telles 
qu’elles sont décrites dans la publicité 
des revues américaines, paraissent à 
peine croyables. 


Il Èa donc fallu l'essayer, bien 
entendu sans lire auparavant la docu- 
mentation. Après avoir inséré la dis- 
quette et exécuté Turbo Pascal, on se 
trouve devant le menu général. Celui-ci 
représente bien la nature du système : 
il est simple, mais complet et perfor- 
mant. Il propose d’éditer, de compiler, 
d’exécuter, de sauver un programme, 
ou de modifier les options du compila- 
teur. 


Des performances 


à faire pâlir 


Un seul appui sur la touche E, et on 
se retrouve alors immédiatement dans 
l'éditeur. En effet, comme la totalité 
du système se trouve dans les 64 Ko de 
la mémoire, les temps de réponse sont 
extrêmement rapides. 


Il ne reste plus alors qu’à apprendre 
les différentes fonctions qui permet- 
tent de se positionner sur le caractère, 
le mot ou la ligne suivante, d’effacer 
un caractère, un mot ou une ligne, de 
déplacer un paragraphe, de rechercher 
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une variable ou de remplacer son nom 
par un autre dans tout le texte. 


Certaines commandes rendent l’écri- 
ture des programmes plus aisée. C’est 
le cas par exemple de l’« indentation » 
des lignes, c’est-à-dire leur position par 
rapport à la gauche de l’écran. 


Cet éditeur, avec au total ses trente- 
huit commandes disponibles, est com- 
plet. Il est également agréable à utili- 
ser. 


En effet, toutes les commandes pro- 
voquent une interruption au niveau de 
l'affichage de l’écran. C’est ainsi que 
lorsqu'une commande est entrée, il 
n’est pas nécessaire d’attendre que 
l'écran soit complètement réaffiché 
pour appeler la fonction suivante. 
L'affichage est alors interrompu, et la 
commande est exécutée. Cela permet 
de travailler rapidement, certains affi- 
chages intermédiaires n’étant pas 
effectués. 


Enfin, si la largeur de l'écran est 
toujours de quatre-vingts caractères, il 
est possible de faire un déroulement 
(scrolling) horizontal du texte, qui peut 
alors être édité avec une largeur de cent 
vingt-six caractères. 


L'appel du compilateur déclenche 
soit la traduction du programme pré- 
sent en mémoire, soit celle du fichier 
de travail. C’est sans doute ici que 
Turbo Pascal est le plus impression- 
nant, puisqu’un programme d’une 


centaine de lignes est compilé en moins 
d’une seconde. Cela est dû au fait que 
tous les traitements sont effectués en 
mémoire. Des performances que peu- 
vent envier de nombreux ordinateurs. 


Bien entendu, pour des programmes 
un peu longs, et si l’on ne dispose que 
d’une mémoire restreinte (de l’ordre de 
64 Ko), il devient nécessaire de modi- 
fier les options du compilateur, afin 
que le texte et le code ne soient pas 
dans leur intégralité en mémoire. Dans 
ce cas, le programme et le code sont lus 
ou écrits sur le disque par petits seg- 
ments. 


Le manuel fourni avec Turbo Pascal 
est assez bien fait, et, sur ses 266 pages, 
plus de 100 sont consacrées à ce lan- 
gage. Dans sa version française, 
comme dans sa version anglaise, il 
pourra constituer une bonne introduc- 
tion. Le Pascal est conforme à celui 
défini par Kathleen Jensen et Niklaus 
Wirth, dans le sens où toutes les possi- 
bilités du langage sont présentes, mal- 
gré la petite taille du compilateur. Il se 
distingue toutefois par des différences 
et des extensions. 


Au niveau des différences entre 
Turbo Pascal et le Pascal standard, il 
faut noter la question des variables 
dynamiques et les entrées/sorties sur les 
fichiers structurés. 


Pour les variables dynamiques, 
c’est-à-dire celles qui sont créées au 
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cours de l’exécution d’un programme, 
la procédure DISPOSE du Pascal stan- 
dard n’est pas fournie, mais est rem- 
placée par les routines MARK et 
RELEASE. Cette différence n’est pas 
très gênante, puisqu'elle est analogue à 
celle du Pascal UCSD qui est assez 
répandu. 


La lecture et l’écriture d’informa- 
tions structurées, qui se font en Pascal 
standard par les procédures GET et 
PUT s'effectuent ici de la même façon 
que pour les fichiers de textes, c’est-à- 
dire par READ et WRITE. Cette 
option est bonne dans le sens où elle 
rend le langage plus homogène, mais 
présente un gros inconvénient, puisque 
les programmes écrits en Turbo Pascal 
doivent être modifiés pour être traduits 
par un autre compilateur. 


Outre ces différences, de nombreu- 
ses extensions, très puissantes, sont 
apportées au langage. Celles-ci sont 
moins gênantes que les différences par 
rapport au langage standard, puisqu'il 


type etat__imprimante 
message _imp 
const msg__imp : message__imp 


Wolf 


De même, 12 AND 22 est égal à 4, puis- 
que ces deux valeurs ont toutes deux le 
bit 2 (qui représente 2 * 2 = 4) posi- 
tionné à un. 

Même si ce genre d’extension peut 
de temps à autre être utile, de nom- 
breuses erreurs de programmation ris- 
quent de passer ainsi inaperçues au 
compilateur. De plus, leur utilisation 
facilite la programmation « à la façon 
Basic », puisque l’on peut écrire des 
formules telles que a : = (b=c) + (2 
OR (b < c) qui ne brillent pas spéciale- 
ment par leur clarté. 


D’autres extensions sont heureuse- 
ment plus utiles. Turbo Pascal permet 
de déclarer des variables de type chaîne 
de caractères, comme tous les bons 
compilateurs. Les valeurs hexadécima- 
les et les caractères de contrôle peuvent 
être également utilisés dans les. pro- 
grammes. 


Mais surtout, il est possible de défi- 
nir des constantes structurées. Ainsi, 
nous pouvons par exemple déclarer : 


(eteinte, hors_ ligne, libre, occupee) ; 
array [etat__imprimante] of string [41] ; 
( Veuillez mettre l’’imprimante sous tension’, 


Veuillez mettre l’’imprimante en ligne’, 
’L’’imprimante est disponible’, 
’L’’imprimante est en cours d’’utilisation’) ; 


est toujours possible de ne pas les utili- 
ser si l’on désire programmer en Pascal 
« pur ». Certaines de ces extensions 
ont un intérêt qui n’est pas évident. 
Par exemple, il est possible d’utiliser 
les opérations logiques sur des entiers, 
celles-ci étant réalisées sur chacun des 
bits des nombres. L’opérateur NOT, 
appliqué à un entier, inverse par exem- 
ple tous ses bits : NOT 0 est égal à -1. 


Le manuel en anglais du Turbo Pascal 
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Il devient alors possible, dans un 
programme, d'utiliser le tableau 
MSG__IMP qui représente une cons- 
tante mémorisant les différents messa- 
ges. De la même façon, on peut définir 
des ensembles ou des articles cons- 
tants. 


Une autre amélioration apportée par 
Turbo Pascal se situe dans l’instruc- 
tion CASE .… OF qui peut recevoir, 
pour chacun des cas possibles, un 
intervalle de valeurs. Le texte suivant 
est par exemple accepté par le compila- 
teur : 


case annee of 
min..1983 : begin 
(+ instruction x) 
end ; 
1984 : Gr instruction * ) ; 
1985..1999: begin 
- (+ instruction *) 


end ; 
else 
write (‘Erreur : annee incorrecte.’) 
end ; 


En ce qui concerne les types définis 
par énumération de valeurs, comme : 
type hemisphere =  (nord,sud,est, 
ouest) ; la fonction ORD définie en 
Pascal standard permet d’obtenir la 
représentation numérique d’une telle 
valeur. Ainsi, ord(ouest) est égal à 3. 
Turbo Pascal dispose de la fonction 
inverse, qui est absente du Pascal stan- 


Le logiciel en quelques lignes 


Nom : Turbo Pascal 

Ordinateur : testé ici sur Apple I, Turbo Pascal 
s'adapte aux systèmes MS/DOS, PC/DOS, CP/M 
Forme : disquette 

Edité par : Borland International 

Distribué par : Fraciel (Tours) 

Prix public : 750 FF avec manuel en français ; 
on peut le trouver à 590 FF chez Mnémodyne (Paris) 
avec un manuel en anglais 

Principale orientation : compilateur Pascal 
Aatres orienfations : édition, sauvegarde des pro- 
grammes, modification des options du compilateur 


dard. Cette fonction a pour identifica- 
teur le nom du type associé : hemis- 
phere(3) est ainsi égal à ouest. 


Se tromper 


un vrai plaisir 


Pour donner un exemple concret de 
ce qu’il est possible de faire avec Turbo 
Pascal, le système est accompagné 
d’une seconde disquette sur laquelle est 
enregistré un petit tableur, appelé 
MicroCalc. Celui-ci est fourni dans sa 
version source, c’est-à-dire qu’il peut 
être listé et modifié. Il donne un bon 
exemple de ce qu’il est possible de 
faire, en un peu plus de 1000 lignes 
Pascal, tout en étant parfaitement uti- 
lisable. 


Les erreurs de syntaxe ou d’exécu- 
tion deviennent presque un plaisir avec 
Turbo Pascal : elles sont signalées en 
clair par le compilateur, sans qu’il soit 
nécessaire de se reporter à une table de 
codes d’erreur. De plus, le curseur est 
automatiquement positionné dans 
l'éditeur à l’endroit où se situe l’erreur 
de syntaxe. 


En ce qui concerne les erreurs d’exé- 
cution, le système se comporte de la 
même façon, c’est-à-dire que le curseur 
est positionné à la ligne où l’erreur s’est 
produite. Il existe très peu de systèmes 
qui disposent de cette facilité de mise au 
point. Avec la rapidité de compilation, 
on a vraiment l’impression de travail- 
ler, pour des programmes de quelques 
centaines de lignes, avec un interpréteur 
Pascal. 


Voilà de quoi convaincre ceux qui 
portent un petit intérêt à Pascal de ne 
plus travailler seulement en Basic. 


Thierry CHAMORET 
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DRAGBUG 


MONITEUR-DÉSASSEMBLEUR 
POUR DRAGON 32 


E logiciel Dragbug réunit, sur une même 
cassette, un moniteur et un désassembleur 
pour Dragon 32. Des bases de programmation en 
langage-machine sont indispensables afin de mieux 
apprécier les qualités de ce logiciel. II coûte environ 


170 FF ttc. 


Dragbug, ce diminutif évocateur 

suggère une concision de bon 
aloi dans la présentation du logiciel. 
Cette simplicité extrême rassure : le 
mode d’emploi est tout entier compris 
dans un petit dépliant de référence 
facile à mémoriser. Pas de mystère, 
après une lecture rapide, on est prêt 
pour le départ. 


Bien évidemment, il est nécessaire 
d'apprendre les bases de la program- 
mation en langage-machine avant 
d'utiliser Dragbug. Un manuel d’ini- 
tiation au processeur 6809 ou même au 
6800 conviendra parfaitement, et la 
perspective de concevoir des program- 
mes cent fois plus rapides et occupant 
moins de place en mémoire, est une 
motivation excellente. 


Cela dit, le moniteur de Dragbug 
sera une aide précieuse pour vos pre- 
miers essais. [l propose une dizaine de 
commandes qui dédramatisent le 
langage-machine. On les appelle par 
leur initiale : P (comme PRINT) active 
ou déconnecte une imprimante éven- 
tuelle qui recopie l’écran (l’imprimante 
n’est pas indispensable, mais permet 
de gagner du temps pendant le 
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« débuggage »). Q, pour QUITTER, 
retourne au Basic ; fort heureusement 
on peut repasser au moniteur instanta- 
nément grâce à une formule magique. 
Les autres commandes sont M pour 
visualiser huit adresses en Mémoire, ou 
E (Editer) pour inspecter une adresse à 
la fois et la modifier le cas échéant. 


Au standard 


Motorola 


Toutes les entrées/sorties du système 
sont en hexadécimal, mais la clarté 
n’en est pas compromise. La com- 
mande « offset » (O) effectue le calcul 
automatique des sauts, ce qui permet le 
choix de sauts « longs » ou « courts ». 
On exécute un programme en tapant G 
suivi de l’adresse du point d’entrée ; 
on peut désormais traquer la bogue en 
insérant des points d’arrêt (break- 
points) au sein du programme. Quand 
il les rencontre, il s’interrompt et affi- 
che le contenu de ses registres internes 


(A, B, X, Y, C et R). Ceci peut être 
obtenu d’ailleurs en fin de programme 
avec la commande R. 


Pour parfaire la mise au point, C 
permet de recopier des blocs de 
mémoire dans différentes zones, ce qui 
remplace les fonctions « insert/de- 
lete » qui font défaut. 


Mais Dragbug est aussi un désassem- 
bleur au standard Motorola, ce qui est 
très important : à défaut d’avaler et de 
digérer des commandes Assembleur 
(tant pis...), il est capable de les recon- 
naître à partir d’une analyse sur le 
binaire. Cette facilité permet de déchif- 
frer à peu près toutes les routines exis- 
tantes pour 6809, et de s’en inspirer 
largement. 


Si Dragbug n’est pas le fantastique 
éditeur-assembleur-désassembleur que 
lon pouvait espérer, il contient le 
nécessaire de programmation en 
langage-machine le plus indispensable, 
et le plus agréable à mettre en œuvre 
pour le débutant. 


Eric BOUCHER 


Le logiciel en quelques lignes 


Nom : Dragbug 

Ordinateur : Dragon 32 

Forme : cassette 

Edité par : Personal Software Services 
Distribué par : Innelec 

Prix public : 170 FF ttc 

Principales orientations : moniteur, 
désassembleur 


[5 
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LES COUPS D'ŒIL DE LIST 


ASSEMBLEUR 


POUR TO7 ET TO7/70 


UNI de la cartouche Assembleur, le TO7 
(comme le T07/70) offre la 
possibilité de programmer en...Assembleur. 
Ce logiciel est écrit par Microsoft, 
édité par TO TEK et coûte 890 FF ttc. 


Le logiciel Assembleur rend la 

programmation en langage- 
machine (voir encadré ZLangage- 
machine et langage Assembleur) acces- 
sible aux utilisateurs du TO7 ou du 
TO7/70. Bien conçu dans l’ensemble, 
il permet de tirer un bon parti des res- 
sources de la machine. À condition 
d’avoir déjà quelques notions 
d’Assembleur (le langage). En effet, la 
notice d’emploi qui accompagne la 
cartouche est assez succincte. Elle sup- 
portera d’être complétée par un 
ouvrage sur le processeur du TO7, le 
6809. 


Ce « mode d’emploi » ne décrit que 
les commandes du logiciel et, sauf une 
table des codes ASCII, il ne comporte 
aucun tableau des mnémoniques. C’est 
un petit peu comme si un Basic était 
livré avec une notice indiquant les utili- 
sations des touches de curseur, la signi- 
fication de LOAD et de SAVE, et ne 
parlait ni des mots-clés du langage, ni 
de sa syntaxe ! 


Huit options 


au menu 


Le menu principal du logiciel com- 
porte huit options. Cinq concernent la 
gestion des fichiers : 

e DIRECTORY permet de visualiser 
le catalogue de la disquette ; 

e COPY recopie un fichier existant 
sous un autre nom ; 

e RENAME renomme un fichier ; 

e KILL détruit un fichier ; 
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e FORMAT « formate » 
quette. 


une dlis- 


Une sixième option sert au choix de 
la largeur de l’impression (40 ou 80 
colonnes). Les sorties sur imprimante 
thermique, en 40 colonnes, consom- 
ment énormément de papier. De plus, 
les lignes dont la longueur dépasse 22 
caractères (les lignes de commentaires, 
par exemple) sortent en deux fois, ren- 
dant peu claire la liste du programme. 

Il reste deux options, les principa- 
les : l’éditeur-assembleur et le moni- 
teur. 


Puisque l’assembleur n'est autre 
qu’un programme traducteur, l’éditeur 


crée un 


programme-source et 
P« édite » (au sens anglais du terme). 
C’est un programme d’aide à l’écriture 
qui comprend diverses possibilités de 


modification, d'insertion, d’écrase- 
ment, de copie, etc. 
Une ligne Assembleur comporte 


quatre zones : étiquette, code opéra- 
tion (COP), opérande, commentaire. 
Ces zones sont de longueur fixe et l’on 
passe à la suivante par la barre d’espa- 
cement. L’espace s'obtient par CTRLS. 


Simple à 


utiliser 


Différentes touches (décrites dans le 
mode d'emploi) déplacent le curseur 
d’un caractère, d’une ligne ou d’une 
page ; vont directement au début ou à 
la fin du programme ; insèrent, suppri- 
ment ou copient un caractère ou une 
ligne. La commande Z définit une zone 
de programme dans laquelle on pourra 
effectuer des traitements particuliers : 


Langage-machine et langage Assembleur 


N ordinateur n’est capable de comprendre (et donc d’exécuter directement) 
que des instructions en langage-machine, c’est à dire en code binaire. Par 


exemple, la suite des trois octets 10110110 00010010 00110100 (B6 12 34, en hexadé- 
cimal) signifie : mettre dans l’accumulateur (qui est un registre interne du micropro- 
cesseur) le contenu de l’octet d'adresse $1234, en hexadécimal. 

Il est facile de se rendre compte que l'écriture directe d’un programme en langage- 
machine est une tâche pour le moins fastidieuse. Une simple addition de deux nom- 
bres entiers inférieurs à 256 (donc, tenant sur un octet) demande l'écriture (et la 
frappe) de 72 nombres binaires ! Pour remédier à cela, les constructeurs ont créé un 
langage dit symbolique, qui est appelé langage d’assemblage ou Assembleur. Dans 
ce langage, chaque code-opération est représenté par un code mnémonique. Ainsi, 
l'instruction précédente s’écrira : LDA $1234 (LDA = LoaD Accumulator). Un tel! 
langage est dit ‘‘direct’” car chaque instruction symbolique correspond à une et une 
seule instruction machine. L'utilisation de |’ Assembleur nécessite évidemment un 
programme de traduction, qui est lui aussi appelé assembleur (dans ce cas, on 
l’écrira sans majuscule) ! Le programme original est le programme-source et le 
résultat qui est donc le code directement exécutable, est le programme-objet. 

Chaque microprocesseur, ayant son propre jeu d’instructions machine, aura donc 
son assembleur. On parle ainsi de l’ Assembleur du Z80, du 6502, du 6800, du 6809 
(c’est le cas du TO7), etc. 
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Le logiciel en quelques lignes 


Nom : Assembleur 

Ordinateur : TO7 et TO7/70 

Forme : cartouche 

Edité par : TO TEK 

Distribué par : les revendeurs THOMSON 

Prix public : 890 FF ttc 

Principales orientations :. éditeur-assembleur et 
moniteur 

Autres orientations : gestion de fichiers, option 
d'impression. 


par exemple, rechercher les occurences 
d’une chaîne, la remplacer par une 
autre, imprimer une partie du pro- 
gramme, etc. 


L’assembleur est très simple à utili- 
ser : il suffit de taper A. Bien sûr, quel- 
ques options viennent compliquer (et 
compléter) la tâche, permettant 
d’avoir ou non une sortie sur papier, 
de visualiser ou non la liste de la table 
des symboles (il manque une table des 
références croisées), de sortir le code- 
objet sur disquette, cassette ou en 
mémoire, etc. 

La liste des fonctions d’assemblage 
est assez complète (INCLUD est très 
utile pour gérer une bibliothèque de 
routines). 


Les amateurs 


apprécieront 


Quant au moniteur, il est aussi inté- 
ressant que l’éditeur-assembleur. Il 
permet en effet d'examiner et de modi- 
fier le contenu de la mémoire sous dif- 
férentes formes : en ASCII, en numé- 
rique (décimal ou hexadécimal), en 
mnémonique (le moniteur sert alors de 
désassembleur). Une commande affi- 
che les registres et une autre trans- 
forme le TO7 en calculatrice. Les ama- 
teurs de DUMP hexadécimal apprécie- 
ront cette possibilité. 


Certaines commandes de « débo- 
gage », pour la mise au point, sont dis- 
ponibles. Et les commandes de con- 
trôle sont identiques à celles de 
l’éditeur-assembleur (LOAD, SAVE, 
VERIFY, PRINT, etc.). 


Assembleur est donc un logiciel très 
réussi dont le prix (890 FF ttc), bien 
que justifié par sa qualité, risque de 
décourager certains candidats. 


Jacques LABIDURIE 
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ee COUPS D'ŒIL DE LIST 
_ CHOPIN ET GÉNÉCAR 


CRÉATION MUSICALE 
ET GÉNÉRATEUR DE 
CARACTÈRES POUR LYNX 


ES éditions Eyrolles s'intéressent aussi au Lynx 
(48 Ko ou 96 Ko). Dans la collection Logilivre, 
elles proposent une cassette composée de deux 
logiciels élaborés pour cet ordinateur, Chopin et 
Génécar. Le premier offre la possibilité de créer des 
mélodies, le second de générer des caractères, 


EL Une même cassette renferme 

deux logiciels : une création 
musicale, Chopin, et un générateur de 
caractères, Génécar. Ces deux logiciels 
sont enregistrés pour les deux versions 
de Lynx, 48 Ko et 96 Ko, et sont 
extraits de l’ouvrage « Tout savoir sur 
Lynx ». 


La qualité de la présentation et les 
instructions en français en rendent 
l'emploi facile. Un court programme 
d’introduction sert de menu et permet 
de vérifier rapidement le bon réglage 
du magnétophone. 


Génécar est un utilitaire intéressant 
qui permet de définir facilement des 
caractères, de modifier ceux qui exis- 
tent déjà, sans même avoir recours à 
une feuille de papier quadrillée. Les 
caractères sauvegardés sur cassette 
pourront être utilisés ultérieurement, 
ce qui épargnera au programmeur les 
fastidieuses corvées de DATA. 


Le logiciel Chopin est plus 
attrayant : il transforme l’ordinateur 
en un petit orgue électronique, huit 
touches numériques donnant un accès 
direct aux notes. Plusieurs possibilités 
appréciables sont offertes par un 
menu : le choix de l’octave, la durée 
des notes, l’obtention des dièses, le 
tout au tempo désiré, et modifiable. 


La qualité du son est assez bonne pour 
un appareil qui n’est pas doté d’un 
véritable synthétiseur. 


Une portée musicale classique affi- 
chée à l’écran, contrôle la saisie des 
notes d’une mélodie. Les possesseurs 
du Lynx 48 Ko pourront mémoriser 
50 notes au maximum, contre 500 avec 
le Lynx 96 Ko ! 


D'une utilisation simple et agréable, 
ce programme de création — et d’ini- 
tiation — met la musique à la « por- 
tée » de tous. 


Le logiciel en quelques lignes 
Nom : Création musicale et générateur de caractères 
(Chopin et Génécar) 
Ordinateur : Lynx 48 Ko et 96 Ko 


Forme : cassette 

Edité et distribué par : Eyrolles 

Prix public : 120 FF ttc 

Principales orientations: création de mélodies et 
génération de caractères 


On peut donc se féliciter de voir des 
logiciels de qualité pour le Lynx, et 
espérer que d’autres programmes aussi 
bons vont suivre. 


Yvon PÉRÈS 
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@ 1 jongler avec la pile opérationnelle de votre 
HP-41 C, traquer la milliseconde perdue et 
rogner le moindre octet est votre pain quotidien. 
Ou si, à l'inverse, vous échappe parfois un peu de 
la subtile recherche des programmes en Notation 


Polonaise Inverse.. 


Alors, voici qui doit vous intéresser. 

En matière de programmation, est-on jamais 
certain d’avoir fait aussi bien que possible ? 

Le mieux pourrait-il être l'ami du bien ? 

Dans cette rubrique, les défis se succéderont : des 
Programmes toujours plus courts, plus rapides... 


Et les records tomberont ! 


Savez-vous planter un chou ? 

Moi non plus. Et trouver avec 
une HP-41C le reste de la division 
entière de 81%? par 3? Là, on peut 
s’entendre..…. 


Le défi de Misez p'tit, lancé dans 
LIST n° 2, a suscité de nombreuses let- 
tres où la fonction MOD, qu'il s’agis- 
sait d'étendre aux très grands nom- 
bres, fut réellement mise ‘‘à toutes les 
sauces”. L’article de Robert Pulluard 
(LIST n° 3) sur cette fonction y est cer- 
tainement pour beaucoup. 


Si le programme-défi lancé fut, sou- 
vent largement, relevé... l’auteur en a 
considérablement accru les performan- 
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ces et ses routines de calcul sont les 
plus économes et les plus rapides. 


Ici, de toute évidence, il n’y a pas 
une, mais plusieurs solutions : soit on 
recherche la vitesse d’exécution, et l’on 
doit alors sacrifier des octets de la 
mémoire (plus d'instructions et de 
registres employés), soit l’économie est 
le souci premier et. la vitesse est vrai- 
ment dépassée. 


Le texte du défi tient en quelques 
mots : considérons un grand nombre, 
5'% par exemple. Quel est le reste de sa 
division entière par 3 ? C’est 2. On le 
vérifiera aisément en tapant : 
5 ENTER 125 Y* 3 MOD. 


Mais, s'agissant de très grands nom- 
bres, comme 81%2, il est très (!) difficile 
de procéder ainsi pour obtenir 8152 
modulo 3... Il faut réaliser un pro- 
gramme d’extension de la fonction 
MOD aux très grands nombres. Les 
différents paramètres sont introduits 
au départ dans la pile opérationnelle 
(8, 152 et 3 dans l’exemple) et le résul- 
tat s’y trouve à l’arrivée (ici 1). 

Las, laissons donc l’auteur du défi 
et, ê miracle, du programme gagnant 
en exposer la philosophie et les subtili- 
tés logicielles. 


À la Mod 
de chez nous 


Nous voici donc en présence d’un 
thème illustrant la maxime préférée des 
optimiseurs : ‘‘le mieux peut-il être 
l’ami du bien ?”?. 


En effet, on peut tout d’abord ima- 
giner la routine suivante de 13 octets 
(sans compter ni le LBL de tête, ni le 
END final) : 

LBLT MODULO!1 
SIGN 

LBL 00 

RCL Y 

ST*xY 

XL 

MOD 

DSE Z 

GTO 00 

END 


L’entrée des données s'effectue sim- 
plement : pour calculer a° modulo c, 
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ta 
LR pre a ENTER c, et | 
tion. uve en X en fin db M. 

, L rogram : 

Le défaut d À me pour HP-4 C 
, u 2 ute! Ë 1C ; ependa 
sa (relative) A ne réside dans Copyri us Bransbourg quand dé nt, un problème se . 

teur d À ght LIST et F ébute 1 po 
23° modulo 18-17 a SFA ple, avec 46 m ? Par io 
5125 modul — 17 en 2 second 46 = odulo 28 : 
0 3=2 es, 2 =18 > 
8152 modulo-3 = 1 : : secondes et MODULES 31 KO 462=16 ie 7 
se 7 cé 3= ; 
: Et pourtant, nous nie 38 pf ae (mod 28), 
eu plus bio qu’un 33 ST0 L er (mod 28) 
i ; E $ _. 5= }, 
| 5 rapidement une es PRPORIE l 34 RDK 6 (mod 28), etc. 
=2 (mod 3) ution car : ne 35 pf , La suite e 
2 , : 35 RCL ; ; st 16 : 
52=1 (mod 3) &é ; ns INDY% à la puissance 2 , 8, 4 mais elle début 
ne (mod 3), si TO T _ ei LE précédemment et non plus 1  .. 
=1 (mod 3), 43 FIDH 37 CL IKD 4 ‘ 
s‘étC: Fa RU sa ë Un / 

Cela signifie . 43 MOD 38 &=YT Poe méthode nous perm 
ee de à 18 STD BA UE Rte .. 
est impair + etc. Tous les 5° in lieLEL #6 #8 RD tous les ae les valeurs : res 
division pour reste 2 (d n js 100 | di L5C 7 com ou tats intermédiai CKET 

F par 3) tandis que | (dans la 12 LASTY Bt “É lé parer à la dernière pui jaires et les 
pair le reste est 1. Immé lorsque n est 13 STOT 2 GTA #1 ée : cela occupe un puissance calcu- 
Sd l déduire ni on i4 FDH 43 GT5 68 miné, à priori Fes indéter- 

>dulo 3=1 car l’ 234567890 15 RCL Of ddl 62 mémoire. ” registres de 
res Il apparaît PRO ES de 5 est E is gé | Nous obteno ue 
HAE 2 MODULOZ, reproduit à coute 

s fondamental. ! Trivial, 15 | énorme tel eproduit ci-contr 

Aude séeémal HOD d’octets en consommate “ 

modulo 15 : ple, avec 17° URI préjuger di Dee QU ER . 
: gr LL d pte 74,5 

17 =2 (mod 15) 28 GTO 86 employés Le Élus de à 

Fe (mod 15). 21 ETR sont ec Lies temps AU 

1=8 (mod 15), E2eLBL 8ù i nombres : pour les grand 

_—. , AS À D + Fe S 
174=1 (mod 15) 23 510 IND Ÿ nn: 23° modulo 18 = 
1752 (mod 15), etc 24 ROH mA 5° modulo 3 A 

Ici, la suite d ‘ 25 ENTER* 4 + 8152 modulo 3=1 3 secondes, 

4, 8, 1. On en successiféést 2 eh à 55 #3y et 512345678900 mod _ ru secondes 

1717 modulo it immédiate » 97 56 INT ê = I'en 1 second 

" . ulo 15 ment que êt Î Ë , ette fois-ci à nde. 
D et ne 28 - 57 MOD ee De 
er 5 à ce «6 : . 
+4 (période des ue) et vaut 27 ! E3 59 : naturellement”? à b. données est 
| 38 53 RCL IND & nn 
68 END 

Gilles BRANSBOURG 


UI DIT MIEUX ? 


pécialistes de cette Polonais 
ui, en lançant un 


SERAIS-je affro 
sée dont j'ingéniosité me laisse, parf ois, pantois 7? 
défi non exprès taillé pour les registres de la dame A1C... 
A VOS méninges d’abord ! Trouvez le bon algorithme; Ja solution du pro- 
blème avant de songer à programmer | 
iangle, quelconque: Connaissant les € 
ommets, calculez les coordonnées 
non ? 
ille poi tée vers le ciel, un triangle d 
équili Je triangle SUT l'aiguille. Unse 
i avité. 


oordonnées x, Ÿ de 
du centre de gra- 


Prenez un Îf 
de ses trois S 


e carton et l’exer- 
ul point du 


mais surtout; pens 


çice suivant : posez, en équilibre, 
triangle correspond à cet équilibre : le centre de gr 
Mon programme occupe 17 octets, aucune mémoire et travaille. vite. 
ez à trouver le bon algorithme. 
Pierre LISON 


Faites mieux, 
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_ LIST À TESTÉ 


ous un boitier tout blanc, le Basic du Colour 
Computer 2, surnommé Coco 2, est riche en 
fonctions graphiques qui doivent 
malheureusement rester indépendantes du texte. 
Et les couleurs sont bien là, mais seulement 


quatre à la fois. 


Le nouveau Tandy Colour Com- 

puter 2, surnommé Coco 2, a 
changé de boîtier par rapport à son pré- 
décesseur, Coco 1 : il est blanc, et com- 
porte un vrai clavier AZERTY. 


D’entrée de jeu, on regrette l’empla- 
cement de la touche d’effacement 
d'écran (CLEAR), située juste à côté de 
la touche ENTER. Cela peut entraîner 
quelques crises de nerfs... D’après le 
manuel d’utilisation, SHIFT 0 fait pas- 
ser en mode minuscule : hélas, trois fois 
hélas, on n’obtient toujours que des 
majuscules, mais en vidéo inversée ! Les 
minuscules ne semblent donc pas exis- 
ter sur le Coco 2. Pour en finir, provi- 
soirement, avec le chapitre des regrets, 
on peut déplorer l’absence de répétition 
automatique des touches. 


A la mise sous tension, un agréable 
affichage noir sur fond vert nous 
informe que le Basic est un Tandy sous 
licence Microsoft. Une partie des ordres 
Basic sera donc probablement très pro- 
che du standard Microsoft. 


L’écran comporte seulement 16 lignes 
de 32 caractères. Et Tandy reste fidèle 
à sa tradition : pas d’éditeur d’écran, 
d’où l’obligation de se plier à la gymnas- 
tique acrobatique de l’ordre EDIT. La 
mise au point des programmes est tou- 
tefois facilitée par la présence de 
RENUM, DEL, TRON et TROFF. 
Lors d’un LIST, le déroulement des 
lignes peut être momentanément sus- 
pendu par l’appui sur SHIFT @, puis 
repris par l'appui sur une touche 
quelconque. 


Les noms de variables ne devront pas 
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excéder un ou deux caractères : une let- 
tre, une lettre suivie d’un chiffre, ou 
deux lettres. Ce Basic fait encore partie 
de la vieille génération ! Les réels sont 
stockés sur cinq octets : la mantisse affi- 
chée a 9 chiffres, alors que l’exposant 
doit être compris entre — 38 et +38. On 
regrette ici l’absence d’entiers, qui per- 
mettent pourtant d’accélérer nettement 
certains traitements, et de réels double 
précision pour les applications 
scientifiques. 


Musical et 


ludique 


Les chaînes alphanumériques sont 
stockées dans une zone spéciale. A la 
mise sous tension, 200 octets sont réser- 
vés pour les chaînes et on peut à volonté 
augmenter ou diminuer la taille de cette 
zone par CLEAR n qui réserve n 
octets ; cela au détriment de la mémoire 
programme et des variables réelles. 


Les tableaux peuvent être multidi- 
mensionnés. Quant aux nombres, il est 
possible de les écrire en décimal, bien 
sûr, mais aussi en octal grâce à & ou &O, 
et en hexadécimal grâce à &H. A noter 
l’intéressante fonction HEXS$ qui effec- 
tue la conversion de décimal en 
hexadécimal. 


Les instructions du Basic classique 
sont là : IF-THEN-ELSE, ON-GOTO, 
ON-GOSUB, READ-DATA-RESTORE, 


DEF FN, PRINT USING. On déplorera 
toutefois l’absence de gestion des erreurs. 


Les fonctions scientifiques, et les 
manipulations de chaînes de caractères 
sont complètes. On retrouve pour ces 
dernières les sympathiques STRING et 
INSTR: répétition et recherche de chaî- 
nes sont donc facilitées. En outre, MID$ 
peut se situer à gauche du signe « = » 
pour modifier commodément le contenu 
des chaînes. 


La variable TIMER joue un rôle 
d’horloge et on peut l’interroger ou la 
modifier : elle varie de 0 à 65535 en 
«environ 18 minutes » (selon le 
manuel), puis retourne à 0. Elle est donc 
incrémentée en « environ 1,6 centième 
de seconde » : on aurait préféré une 
autre correspondance avec les 
secondes. 


L’instruction SOUND h, d permet de 
jouer de la musique : h représente la 
hauteur du son et d, la durée. L’instruc- 
tion PLAY est plus commode : elle per- 
met de jouer des notes selon la notation 
anglo-saxonne. C’est ainsi que la 
gamme complète se joue avec la com- 
mande PLAY ‘‘O2CDEFGABO3C’° où 
O effectue un changement d’octave 
pari les cinq admises, et où C, D, E,.. 
représentent respectivement do, ré, 
mi, .… 


La durée, le tempo ou le volume sont 
modifiables par un L, un T ou un V.Il 
est également possible de rappeler des 
sous-chaînes par X: Ainsi 
A$=‘‘CDEFG’’ : PLAY’ XA$; 
XAS$;”” jouera deux fois de suite « do, 
ré, mi, fa, sol ». Le dièse ou le bémol 
s’obtiennent en faisant suivre la note par 
les signes « # » ou « — ». 


Le branchement de deux manettes de 
jeu a été prévu, et c’est la fonction 
JOYSTK qui permet de connaître leur 
position. 


Le Coco 2 se révèle ainsi bien adapté 
aux jeux : grâce à PLAY et à JOYSTK, 
mais aussi grâce à ses possibilités gra- 
phiques couleurs. En effet, ce Tandy 
dispose de huit couleurs, plus le noir. 
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On pourra obtenir des graphiques gros- 
siers sur la page de texte avec SET (x, 
y, c) qui allume le point de coordonnées 
x, y avec la couleur c. Les points ainsi 
allumés sont assez gros : ils ont la taille 
d’un quart de caractère. Mais leur défi- 
nition n’est alors que de 64X 32. En 
outre, les quatre points d’un même 
caractère ne peuvent être allumés 
qu'avec une même couleur. Un point est 
éteint grâce à RESET (x, y). 


La grande force 


du Coco 2 


La faible définition, et les deux seuls 
ordres SET et RESET, rendront le 
dessin sur la page de texte assez diffi- 
cile. On préférera les vraies pages gra- 
phiques où la définition varie de 
128 x 96 à 256 X 192, et où les ordres de 
tracé de lignes et de cercles existent. 


Ce qui fait la grande originalité, et la 
grande force, du Coco 2 est la possibi- 
lité qu’il offre de disposer de plusieurs 
pages graphiques affichables 
séparément. 


La mémoire vive de cette version du 
- Tandy possède 32 Koctets, dont un Ko 
est réservé par le système et 0,5 Ko par 
la mémoire écran de texte : il reste donc 
30,5 Ko à l'utilisateur. 


L’ordre PCLEAR n réserve n pages 
graphiques de 1,5 Ko : une page au 
minimum et huit au maximum. La 
mémoire réellement disponible à l’uti- 
lisateur pour son programme et ses 
variables peut donc varier de 29 Ko avec 
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Ordres sur 1 octet 


"mn MO (> Lo 0 1 a LB & D — © 


PCLEAR 1 à 18,5 Ko avec PCLEAR 8. 
A la mise sous tension, le Coco 2 se 
réserve quatre pages, et un PRINT 
MEM confirme que l’on dispose d’en- 
viron 24,5 Ko. 


Cinq modes graphiques sont disponi- 
bles (voir tableau des Modes graphiques 
du Coco 2) avec l’instruction PMODE 
m, p ou m représente le mode et p la 
page affichée. Par exemple, en mode 4 
(la plus haute résolution disponible), 
après avoir fait PCLEAR 8 et rempli les 
deux dessins des pages 1 à 4 et 5 à 8,on 
pourra les faire afficher alternativement 
et rapidement avec une ligne de pro- 
gramme telle que : 100 PMODE 4,1 : 
PMODE 4,5 : GOTO 100. On pourra 
ainsi concevoir des dessins animés, le 
passage à l’écran d’un graphique à l’au- 
tre étant immédiat. Et avec PCOPY p, 


Liste des mots-clés du Basic du Coco 2 


9 


ELSE 
IF 
DATA 
PRINT 
ON 
INPUT 
END 
NEXT 
DIM 
READ 
RUN 


RESTORE 


RETURN 
STOP 
POKE 
CONT 
LIST 
CLEAR 
NEW 
CLOAD 
CSAVE 
OPEN 
CLOSE 
LLIST 
SET 
RESET 
CLS 
MOTOR 


PCLEAR 
COLOR 
CIRCLE 

PAINT 
GET 
PUT 

DRAW 

PCOPY 

PMODE 
PLAY 

LET DLOAD 

LINE RENUM 
PCLS FN 
PSET USING 

PRESET 

SCREEN 


EDIT 
TRON 
TROFF 
DEF 


A 


M D OO Œ }> © © 1 où Un BR & D = © 


PEEK 
LEN 
STR$ 
VAL 
ASC 
CHRS$ 
EOF 
JOYSTK 
LEFT$ 
RIGHTS 


MID$ 
POINT 
INKEYS 
MEM 
ATN 
cos 
TAN 
EXP 
FIX 
LOG 
POS 
SQR 
HEX$ 


VARPTR 


INSTR 
TIMER 


PPOINT 
STRINGS 
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Modes graphiques du Coco 2 


Définition 


Nombre de 
couleurs 
disponibles 


Nombre de 
pages-mémoire 
utilisées 
pour un dessin 


Nombre de 
dessins maxi 
mémorisables 

(en PCLEAR 8) 


128x 96 
128x 96 
128 x 192 
128 x 192 
256 x 192 


TO p, qui copie la page p, dans la page 
P:, l’outil devient parfait. 


Il est impossible d'obtenir simultané- 
ment les huit couleurs à l’écran : elles 
ne sont disponibles que par deux ou par 
quatre. Mais on choisit la gamme des 
couleurs avec SCREEN #, g : t est le 
type de l’affichage (0 pour texte, 1 pour 
graphique), et g la gamme de couleurs 
(0 ou 1). 


Par exemple, pour les modes 1 et 3, 
les quatre couleurs affichées sont, pour 
la gamme O, vert - jaune - bleu - rouge, 
et pour la gamme 1, beige - turquoise 
- pourpre - orange. 


Dans les modes 0, 2 et 4, les deux cou- 
leurs sont noir - vert (gamme 0) ou noir 
- beige (gamme 1) : en réalité, il n’y a 
qu’une seule couleur, un point étant 
allumé (vert ou beige selon la gamme), 
ou éteint (noir). En mode 256 x 192, le 
Coco 2 porte donc bien mal le nom de 
« Colour ». 


Le choix entre texte et graphique 
imposé par l’ordre SCREEN dévoile 
même son gros défaut : l'impossibilité 
de mêler sur le même écran du texte et 
des dessins. Les instructions PRINT 
agissent uniquement dans la page texte, 
et les instructions PSET et LINE uni- 
quement dans la page graphique. 


Les ordres graphiques sont nom- 
breux : PCLS c efface l’écran avec la 
couleur c ; COLOR cf, ce choisit la 
couleur du fond (cf) et celle de l’écriture 
(ce) ; PSET (x, y, c) allume un point et 
PRESET (x, y) l’efface ; PPOINT (x, 
y) retourne la couleur du point. Quel 
que soit le mode choisi, l’origine (point 
de coordonnées 0 et 0) est en haut à gau- 
che de l’écran et les coordonnées du 
point diamétralement opposé valent 
toujours 251 et 191. 


C’est ainsi que Tandy a résolu les pro- 
blèmes de conversion : il n’est plus 
nécessaire de recalculer les coordonnées 
des points lorsqu’on change de mode. 


Les instructions LINE et CIRCLE 
offrent la possibilité de tracer des lignes, 
des rectangles, des rectangles pleins, des 
cercles, des arcs de cercles, des ellipses, 
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des arcs d’ellipses. PAINT (x, y }, Ci 
c, peint en couleur c, une zone partant 
du point (x, y) jusqu’aux limites en cou- 
leur c.. 


Tandy a eu l’idée intéressante et ori- 
ginale de permettre les recopies partiel- 
les d’écran. Par exemple, le 
programme : 

10 DIM T (40, 20) 

20 GET (10, 10) — (50,30), T 

30 PUT (100, 60) — (140, 80), T 
recopie l’image contenue dans un rec- 
tangle de 40 points de large sur 20 points 
de haut dans une autre zone de l’écran. 
Ceci accélère nettement les tracés à 
caractère répétitif. 


Directions de l’ordre DRAW 


L'étude du graphisme du Coco 2 doit 
être complétée par l’ordre DRAW qui 
permet d’obtenir des tracés de plusieurs 
lignes avec un seul ordre. Par exemple, 


Fiche technique du Coco 2 


Nom : Colour Computer 2, 

TRS-80 couleurs 2 ou Coco 2 

Constructeur et distributeur : Tandy 

Mémoire vive : 16 Koctets de base, extension possi- 
ble jusqu'à 64 Koctets 

Mémoire morte : 16 Koctets 

Langages : Basic Microsoft, Assembleur du 6809 
Prix public : 2 500 FF ttc dans sa version de base ; 
3 000 FF tic avec un Basic étendu ; 

3 900 FF ttc dans la version 64 Ko et un Basic étendu | 
Variables : réels stockés sur cinq octets (mantisse 
affichée sur 9 chiffres et exposant compris entre 38 
et +38) 


un carré peut être tracé grâce à la ligne 
DRAW‘M10,10; R50;,D50 ;L50;U50°° 
dans laquelle M déplace le pointeur en 
(10, 10) et R, D, L et U tracent des lignes 
de 50 points vers la droite (R comme 
right, en anglais), le bas (D comme 
down), la gauche (L comme left) et le 
haut (U comme up). Ces tracés étant en 
mouvement relatif, la dernière ligne 
ramène bien au point initial. E, F, G et 
H tracent des lignes en diagonale. Mais 
on peut également décaler les huit direc- 
tions grâce à A. Par exemple après Al, 
elles seront décalées de 90 degrés et un 
R (right) opérera alors comme un U 
(up). 


C permet de modifier la couleur du 
tracé et S de changer d’échelle. Une 
sous-chaîne sera exécutée grâce à X, 
comme dans l’ordre PLAY. L’ordre 
DRAW est donc très ingénieux, capa- 
ble de faire des tracés assez complexes 
avec un minimum de directives. 


Pour les fanas 


du 6809 


Les fanatiques du 6809 pourront pro- 
grammer en langage-machine grâce à 
PEEK, POKE, VARPTR, EXEC, ainsi 
que CLOADM et CSAVEM. L'ordre 
CLEAR n, a (à ne pas confondre avec 
CLEAR suivi d’un seul argument, pour 
les chaînes alphanumériques) réserve n 
octets à partir de l’adresse a, en vue du 
langage-machine. Outre EXEC, on peut 
appeler des programmes 6809 par USR 
qui permet, en plus, le passage de para- 
mètres. Il faut auparavant définir le 
point d’entrée par DEF USR. 


Les programmes sont facilement stoc- 
kés sur cassette avec CLOAD, CSAVE 
et SKIPF. Les fichiers de données sont 
possibles avec OPEN-CLOSE, 
PRINT #, INPUT #, et EOF. Les ins- 
tructions MOTOR ON et OFF com- 
mandent le moteur du magnétophone. 
Quant à AUDIO ON ou OFF, elles diri- 
gent, ou non, le son de la cassette sur le 
téléviseur. 


En conclusion, le point fort de Coco 
2 est la richesse de ses ordres graphi- 
ques. Mais ses faibles commodités 
d’édition, son impossibilité de mixer 
texte et image (sauf en mode 64 x 32) et 
ses seules quatre couleurs sont de gra- 
ves inconvénients face à certains ordi- 
nateurs concurrents, comme... le MOS, 
pour ne pas le citer. 


- Christian BOYER 
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UNE PROCÉDURE PASCAL 


CONVERSION DE CHAÎNE 
EN ENTIER 


L arrive souvent qu'un nombre soit mémorisé 


sous forme de chaïne. Mais alors, il n’est plus 
considéré comme un entier. Il faut donc le 
convertir. Grâce à une procédure Pascal, la 
conversion a lieu de telle sorte que le nombre soit 
stocké dans une variable de type entier. 


Une procédure Pascal est char- 
gée de convertir un nombre 
mémorisé dans une chaîne en un entier 
stocké dans une variable de type entier. 


Elle est déclarée par : 


tuées, mais il faut savoir alors que les 
valeurs retournées correspondent à des 
centimes. Dans ce cas, il est nécessaire 
d’envoyer à la procédure une chaîne 
correctement formatée, c’est-à-dire 


procedure CONVENTIER (VALCHA : string ; var VALENT : ENTIER) ; 


Le premier paramètre VALCHA, 
correspond à la VALeur, transmise 
sous forme de CHAîne, qu’il est néces- 
saire de convertir. Le second paramè- 
tre contient, après l’appel de cette pro- 
cédure, la VALeur sous forme 
ENTière. Ce type ENTIER, pourra 
être INTEGER, si la capacité des 
variables de ce type suffit au problème 
à résoudre. 


N'oubliez pas 


de reconvertir 


Il faut noter que cette procédure ne 
permet que de convertir des chaînes 
mémorisant des nombres entiers. Tou- 
tefois, la conversion d’une chaîne com- 
portant une virgule ou un point déci- 
mal est possible. Dans ce cas, le sépa- 
rateur décimal est ignoré. Par exemple, 
dans un programme où sont traités des 
montants, les conversions sont effec- 
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comportant toujours le même nombre 
de chiffres après la virgule. 


Le principal intérêt de cette procé- 
dure est de permettre à un programme 
d'effectuer la saisie des nombres sous 
forme de chaînes, et de ne pas être inter- 
rompu par un message d’erreur dans le 
cas d’une mauvaise entrée. Par exem- 
ple, dans un programme, la demande 
d’une référence numérique valant de 1 
à 999 s'effectuera de la façon sui- 
vante : 


VALABLE : = [1..999] ; 
repeat 


Le début du traitement que réalise 
la procédure (page suivante) consiste à 
initialiser deux variables. La premiè- 
re, VALENT, est mise à zéro : elle 
est destinée à mémoriser le nombre 
provenant de la chaîne. La seconde, 
appelée NEGATIF, est initialisée à la 
valeur FAUX, et indique si l’entier 
VALENT est positif ou négatif. 


Cette procédure réalise ensuite une 
boucle sur chaque caractère de la 
chaîne qui a été passé en paramètre. 
Celui en cours de traitement est mémo- 
risé dans la variable CAR. Cela permet 
d’accélérer l’exécution de la procédure 
et de réduire la longueur de son code. 
En effet, l’accès à une variable simple, 
tel qu’un caractère, est facile et rapide, 
alors qu’une recherche dans un 
tableau, tel qu’une chaîne, nécessite la 


WRITE( Reference de l’article (<return> pour sortir) : ?) ; 


READLN(CHAINE) ; 
if CHAINE <>”? 
then 
begin 


CONVENTIER(CHAINE, REFERENCE) ; 
if not (REFERENCE in VALABLE) 


then 


WRITELN('Erreur : cette reference est erronee’) 


end 


until (CHAINE = *”) or (REFERENCE in VALABLE) ; 
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procedure CONVENTIER (VALCHA 
var I : integer ; 
CAR : char ; 
NEGATIF : boolean ; 


: string ; 


begin 
VALENT : = 0; 
NEGATIF : = FALSE ; 
for 1: = 1 to LENGTH (VALCHA) do 
begin 
CAR : = VALCHA [1 ; ; 
if CAR in [”0’..”9] 
then 
VALENT : = 
else 
if CAR in [°+’,—7] 
then 
NEGATIF : = CAR = ’— 
end ; 
if NEGATIF then VALENT : 
end ; 


ls 


= — VALENT 


var VALENT : ENTIER) : 


10 x VALENT + ORD (CAR) — ORD (‘0’) 


—) 


recherche. de l’indice de l’élément, le 
calcul de son adresse, et un test pour 
vérifier s’il ne se situe pas au-delà de la 
longueur de la chaîne. 


Lorsque le caractère est un chiffre, il 
intervient dans l’évaluation du nom- 
bre. Celui-ci est multiplié par 10, ce qui 
a pour effet de décaler tous les chiffres 
qui le composent vers la gauche. La 
valeur numérique du caractère lui est 
ajoutée, et se situe donc à la position 
des unités. 


Lorsque le caractère est un signe, 
l’expression logique « le signe est néga- 
tif » est mémorisée dans la variable 
NEGATIF. 


A la fin du traitement, le nombre est 
pris égal à son opposé si le signe moins 


a été détecté dans la chaîne, c’est-à- 
dire si NEGATIF est vrai. 


Thierry CHAMORET 


 BALISTIQUE SUR PB-700 


IL était une fois une équation. Devenue 

| programme, elle transforma un phénomène 
physique peu connu, la balistique, en jeu... Ce 
n’est pas un conte de fées, mais une démarche 
intéressante — peut-être même un premier pas 
vers l'Enseignement Assisté par Ordinateur — 
suivie ici par le PB-700. 


Figure 1 
Exécution du programme 1. Le petit point représente la cible 
a. L’angle choisi (45 degrés) est trop important. 


Ib= 1 
ANGLET4S 
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b. Quel que soit l’angle initial, la cible reste inaccessible. (Cas 
où l’équation de la trajectoire n’admet pas de racine correspon- 
dant aux coordonnées de la cible). 


Posez à quelqu'un qui n’est pas 

très familiarisé avec les notions 
de mécanique la colle suivante : com- 
ment représenter la trajectoire d’un 
projectile lancé obliquement ou hori- 
zontalement, en négligeant la résis- 
tance de l’air. 


Votre interlocuteur vous tracera 
probablement une trajectoire oblique 
ou horizontale qui s’incurve progressi- 
vement pour devenir verticale... Ce 
petit test montre que l'intuition est 
souvent trompeuse et qu’en matière de 
balistique (puisque c’est de cela qu’il 


is i 
(AHGLETE G 
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s’agit), bien des gens en sont restés à 
des concepts dépassés. 

Les deux jeux proposés ici sont des 
variations sur ce thème de la balisti- 


gauche de l’écran. 


que. Ils mettent à profit l'écran ‘‘haute 
résolution’”’ du PB-700. 


Dans 


le premier jeu, il s’agit 


d’atteindre üne cible en ajustant cor- 


Programme 1 


iQ 
15 
20 
25 
30 


40 
45 
58 
68 
78 
25 
80 
85 
3e 
95 
108 
110 
280 
210 


220 
230 
240 
258 
300 
310 
320 
330 
340 
400 
41@ 
428 


430 
440 
450 
460 
470 
480 
490 
435 


REM ---BALISTIQUE--- 


REM XCJEU No 12% 
REM ==zz==zzz-=---=-- 
CLS :N=1:G6=10:U=25 


INPUT NIVEAU DE DIFFICULTE(C1-2-3) 
“"3;D:CLS 

GOSUB 200 

IF N=6 THEN 108 

DRAUCX@;: YO) 

GOSUB 300 

GOSUB 400 

IF INTCY+.5)=YQ THEN 100 

IF D=1 THEN 45 

DRAUCCXG; Y@) 

K@=XQ@-4:IF D=3 THEN Yg=Y@-1 

IF X@xY@>Q THEN 50 

BEEP :BEEP :BEEP 1 

GOTO 20 

REM'"CADRE ET CIBLE" 
DRAUCB:@)-C70:8>-(70;:31)-(2:31)-<@ 
50) 

Y@=ROUND CRNDX25: -13+3 

X@=ROUND C(RNDX34; -13+16 

IF X@ MOD 2=1 THEN xX0=x2+1 
RETURN 

REM"ANGLE DE TIR" 

LOCATE GS; @:PRINT ‘"N=";N 

LOCATE 9; 1:PRINT "ANGLE= É 
LOCATE 14,1: INPUT À 

RETURN 

REM"TRAJECTOIRE" 

N=N+1:X1=0:Y1=0 
B=G/2/U/U/COSCA)/COS(A)D: C=TANCAD:P 
=C/B 

IF X@<P THEN P=Xx0 

IF A>70 THEN I=1 ELSE 1=2 

FOR X=@ TO P STEP I 
Y=BXXXX-CXX+31 
DRAUCCX1: Y12: DRAUCX: VD K1I=R:I YI=Y 
NEXT x 

DRAUCCK1:Y1):BEEP 

RETURN 


rectement l’angle de tir d’un projec- 
tile ; celui-ci part du coin inférieur 


posés (ligne 30 du programme 1) de 1 à 
3. Selon le niveau choisi, la cible est 
soit immobile (niveau 1), soit en mou- 


Trois niveaux de difficulté sont pro- Y£ment ; dans ce dernier cas, elle se 


Programme 2 


10 
1{ 
12 
15 
20 
30 
40 
5@ 
995 
68 
65 
78 
80 
3e 
95 
100 
110 


120 
130 
140 
158 
200 
210 
22@ 
230 
24@ 
250 
388 
310 


328 
325 
338 
340 
350 
355 
360 
408 
418 
420 
430 
44 
450 
468 
480 


REM ---BALISTIQUE--- 
REM XCJEU No 2)x 
REM 
G=10:K=,5:N=1: X1-D: Y1=0 

GOSUB 10a 

GOSUB 200 

GOSUB 320 

IF ABSCXG-PO)<1 THEN 95 

IF RXP<8 THEN 30 

P1=PO+KXP: A=A/K 

IF P1<80Q THEN 80 

P1=82:R=-0 

GOSUB 498 

GOTO 50 

BEEP :BEEP :BEEP 1:GOTO 10 
REM'"CADRE ET CIBLE" 

CLS :DRAN(CB;: 2D-(B:31)-(80;: 312-808; 
8)-(2:0) 

KA=ROUND CRNDX68: -13+10 
DRAUCCXB-1:31)2-CX2+1;31) 
DRAUCX@-2; 30): DRAUCXA+2, 30) 
RETURN 

RENM “UITESSE" 

LOCATE 11:@:PRINT "N=":N 

LOCATE 1131:PRINT ‘"U= LE 
LOCATÉE 13:31: INPUT U 

R=1:N=N+1 

RETURN 

REM"PREMIERE CHUTE" 
PO=UXSQR(62/6):P=2XPG: A=.5XG/U/U:B 
=SQR(62XG)/U 

FOR X=@ TO PO STEP 2 

DRAUCCX1: Y1): Y=AXXXX 
DRAUCX3 VD: XI=N: YI=Y 

NEXT x 

BEEP 

DRAUCCK15:Y1) 

RETURN 

REM'"REBOND 

FOR X=P@+1 TO P1 

DRAUCCX1:Y1) 

Z=X-PO: Y=AXZXZ-BXZ+31 
DRAUCX 3 YO: XI=X: YI=Y 

NEXT Xx 

BEEP :P@=P1:P=KxXP 

RETURN 


——) 
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BALISTIQUE SUR PB-700 


QUESTION DE MOUVEMENT 


rapproche de vous en vol horizontal 
(niveau 2) ou en gagnant de l’altitude 
(niveau 3). 


Dans la première hypothèse, le nom- 
bre d’essais est limité à cinq. Pour les 
deux autres niveaux, on a tout le loisir 
d’ajuster le tir jusqu’au moment où la 
cible sort de l’espace de contrôle, ou 
encore, éventualité plus dramatique, 
où elle se trouve à la verticale du poste 
de tir. 


Le deuxième jeu est beaucoup moins 
stressant : il faut loger une bille dans 
un trou creusé dans le sol, en la lançant 
à la vitesse convenable. Et même si elle 
n’a pas été lancée suffisamment fort, il 
reste encore une chance de gagner ! En 
effet, dans ce cas, elle rebondit en arri- 
vant au sol, et après plusieurs sauts, 


+ 


elle peut très bien tomber dans le but. 


Quelques aspects théoriques doivent 
être abordés, à l’intention des curieux. 
Pour le premier jeu, l'équation de la 
trajectoire du projectile, qui sera appe- 
lée équation 1, s'écrit : 
z=(-—g/2V°cos?a)+(tana)x 
où g représente l’intensité de la pesan- 
teur (10 m/s°), v la vitesse d’éjection 
du projectile (25 m/s), et a l’angle de 
tir. 

La ‘‘portée”’ s’obtient en faisant 
z=0 dans l'équation 1, ce qui donne : 
P=(v'sin 2a)/g 
On voit que P est maximum quand sin 
2a=1, c’est-à-dire quand a = 45degrés. 

Au cours des parties, on observe que 
certaines positions de la cible la met- 
tent hors d’atteinte du projectile, quel 


LA BALISTIQUE 
ELLE ÉVASION | 


PIREZIOM » 


que soit l’angle choisi (voir figure 1b). 
Ceci s’explique en faisant intervenir la 
notion de ‘‘parabole de süûreté”’. 
L’équation 1, en effet, s’écrit encore : 
tan? a —2(v?/gxj)tan a + ((2v?/gx?}z 
+1)=0 

Il s’agit alors d’une équation du 
second degré en ‘‘tana’”, et trois cas 
peuvent se présenter selon le signe du 
discriminant : 
e s’il est positif, la cible de coordon- 
nées (x,z) est atteinte par deux angles 
de tir (les racines de cette équation) ; 
e s’il est négatif, la cible est inaccessi- 
ble, l'équation n'ayant pas de racines 
réelles ; 
e s'il est nul, il n’existe qu’un seul 
angle de tir pour atteindre la cible. 


Avant 


el après 


Le dernier cas (discriminant nul) 
permet d'écrire l'équation de la ‘‘para- 
bole de sûreté””’, dans le plan. Pour le 
second jeu, à chaque rebond, la bille 
perd une partie de son énergie cinéti- 
que. Le coefficient K (ligne 15 du pro- 
gramme 2) représente le rapport des 
énergies cinétiques avant et après cha- 
que contact de la bille avec le sol. 
Théoriquement, le nombre de rebonds 
est infini, mais dans la pratique, la 
bille s’arrête assez rapidement. 

Un autre jeu consiste à calculer les 
distances totales parcourues par la bille 
dans les deux sens, vertical et horizon- 
tal ! 


Trung HUA-NGOC 


Figure 2 
Exécution du programme 2. 
La cible est le petit espace à la base 


a. La vitesse initiale est trop forte 


du rectangle, qui représente un trou dans le sol 


b. La vitesse initiale est trop faible 
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LES DISQUETTES COMMODORE 


SUR LA PISTE DIRECTORY 


ue 
| Ve "tête de lecture" à contrôle 
de - disquette Commodore - , 
LS Yemande, procédure atterrissage < 
Se d'ui - 
1 ufgence 


= 
+ + RS 


NS 
HAE A A RE 7. 


ar AR nu MMS 


isquetle Commodore à "2e de = 
ecture "- Prien reçu - Prenez le à. 
= cap ligne 350 au vous mettra = 
= 17 ide de la pute Virectory = S 
Lo Roger no 


EE %e n 
‘ si à 
/ MAT TUE - 


° e 0 e iculi s 1ES 18 T 

[ À « gestion-manipulation » des disquettes a 

Commodore fait souvent pénétrer dans des La figure 1 fournit une base de tra- 

; sh ; vail intéressante, sous la forme d’une 

techniques trop rarement utilisées. Il est vrai image hexadécimale du contenu de la 

/ , . ñ « Ê piste 18, secteur 1 d’une disquette quel- 
qu'elles ne sont pas toujours faciles d'accès, bien  conque. 

que leurs applications soient nombreuses, La Sois ie 1AQnbIe 298, ou 


formant un « block » (bloc, en fran- 


pti 1 ] ] is !). A l'extrême droite, figure 1 
description de la piste « directory », piste centrale Ce rapeti cde 


d'une disquette Commodore, va permettre ici une les codes non alphanumériques étant 
traduits par de simples points. 
approche sans effort. 


On y reconnaît sans effort les titres 


Figure 1 


Le premier bloc de la piste 
Chaque disquette Commodore piste 12 SECTEUR 1 


est découpée, lors du formatage & > GB FF RE 11 GG 31 2@ Sa SX S4 di 47 41 AG AG 
Es 2 : 21. 5 > AG AG AD AA GE En an GA GE A DA AU 16 PA à 
en une sérig de pistes. L’une d’elle MR 81 13 GA 22 44 49 G2 43 4F D SA AG AA AB à 
porte le numéro 18 sur l’échelle des AG AG AG RE QD AD AG Où GA QE AG AQ EÙ AS aù 
s < à 2 à au &4 13 AG 31 44 49 S2 43 4F 40 54 AG AG AG 
. numéros de piste, qui s étend de : à 35, AG AG AG RG GG AO am aa aù G& An GG A7 Aû 
et occupe donc une position médiane Me GG 13 M7 45 40 49 40 49 dE 4S AG AG AO AG 
sur la Zone magnétique des disquettes : A AU AG AG QG où aa re _ 4 ee 
, . : GE GE Of Qn EG EG an AG AG AE An GE AE GE 
c'est la piste « directory ». aû GR AA A Aù GE an Go G@ QG D Où dE ax 
Sa situation présente l’énorme avan- GA 00 A RU LR Re 2e 06 CA AU OU AE 08 Gen 
: £ F4 ae DA A AE GE AA AE AA Ga GA GA AG AA aa 
tage de limiter les déplacements de la An Aù à GA AG GQ a na 0ù UO ER QG GA a 
tête de lecture/écriture, qui sont Ga AG EE OÙ En we Ga AA UD AA AR GA GA 
4 : GLS GA DE Lt AA AS GE AO GE AA GA AA 
grands dévoreurs de temps, et nuisent 6. CS di ob A: de du a-de Ca an 


par conséquent aux performances ! 
Cette piste est découpée en 19 secteurs 
(numérotés de 0 à 18). Le secteur 0 est 
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LES DISQUETTES COMMODORE 


_ SUR LA PISTE DIRECTORY 


des fichiers présents sur la disquette et 
qui apparaissent par un LOAD ”’$”, 8 
(figure 2). Les autres octets du bloc 
contiennent des informations utiles. 
Trente octets sont consacrés à la des- 
cription de chaque fichier, ce qui limite 
par conséquent le nombre de titres à 8 
au maximum pour chaque bloc de la 
piste 18. 


Figure 2 
Le catalogue normal et... incomplet 


LA 


22 "1 PASTAGA" FRG 
S “20IRCONMF" SEU 
F “1CIRCONMP" FREL 
634 BLOCKS FREE. 


Les données dont on dispose pour 
chaque titre sont les suivantes : 

e octet 1 : type de fichier ; il en 
existe quatre principaux : SEQ, PRG, 
USR, REL ; un cinquième peut s’y 
adjoindre : le fichier DEL (delete, 
détruire en français) ; 

e octet 2 : numéro de la piste où 
commence le fichier ; 

e octet 3 : numéro du secteur sur la 
piste en question ; 

e octets 4 à 19 : codes ASCII du titre 
du fichier ; les derniers étant des AO 
(160 en décimal, espaces shiftés), si le 
titre a une longueur inférieure à 16 
caractères ; 

e octets 20 à 28 : ils sont presque 
toujours à 00, sauf cas particuliers 
(fichiers REL, par exemple) ; 

e octets 29 et 30 : nombre total de 
blocs occupés par le fichier. 


En créant un programme « catalo- 
gue étendu » (page ci-contre), plus pré- 
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cis que le catalogue habituel, on fait 
réapparaître cet ensemble d’informa- 
tions. Et pour en tirer le meilleur pro- 
fit, il faut agir avec méthode et suivre 
les explications du programme. 

Tel qu’il est livré ici, le programme 
affiche les informations attendues sur 
l’écran de la machine. Et pour obtenir 
ces résultats sur l’imprimante, rien de 
plus facile. Il suffit d’ajouter les lignes 
suivantes au programme : 

220 OPEN 4,4 

830 CLOSE 4 


Sans omettre, naturellement, de 
modifier tous les PRINT” à partir de 
la ligne 330 (incluse), en ’PRINT# 4,’. 


La figure 3 présente le résultat 
obtenu sur imprimante à partir d’une 
disquette d’essai grâce à cet utilitaire. 
N'est-ce pas mieux que le traditionnel 
catalogue ? 


Figure 3 
Le catalogue étendu 


17 A) 1 FASTAGA Ze 
EG 19 & ‘ 2DIRCONMP d à 
REL 15 3 * ADIRCOMF 
DEL 13 F ff ELIMINE 
554 SECTEURS LIBRES 


Pour son utilisation, deux idées 


essentielles sont à retenir. 


Si, par inattention ou erreur de 
manipulation, un important fichier a 
été détruit... et si par malheur, l’éten- 


due du désastre n’est découverte que 
plus tard, le programme proposé est 
d’un secours remarquable. Il permet 
de savoir ce qu’il est advenu du fichier 
perdu, et s’il est récupérable. C’est un 
premier pas franchi vers la réparation 
d’une catastrophe accablante ! 


Prenez vos 


précautions 


L'utilisation fréquente de la com- 
mande SAVE ”’@ 0 : titre””, 8 entraîne 
parfois une mésaventure, probable- 
ment due à une bogue du SED 
(Système d’Exploitation des Disquet- 
tes) Commodore. De fait, quand on 
essaye de charger le programme en 
question, c’est un autre qui est mis en 
mémoire. Le programme essentiel 
est, par conséquent, perdu. Or, si l’on 
a pris la précaution de conserver une 
trace de la piste et du secteur où com- 
mence le fichier — et cela, grâce au 
programme catalogue étendu — on 
s’en tirera généralement sans pro- 
blème ! 

D’autres idées d’utilisations peuvent 
sans doute être trouvées et mises en 
pratique. Dans un prochain article, un 
sixième type de fichiers sera dévoilé. 
En attendant, la ligne 500 du pro- 
gramme mérite de l’attention : elle 
contient la réponse à l’énigme qu’elle 
pose ! 


Jean-Pierre LALEVÉE 


DAMNED, J'AVAIS OUBLIÉ 


DE BRANCHER  MOW 
ORDINATEUR ! 
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Catalogue étendu 
Programme pour Commodore 64 et lecteur de disquette 


Auteur Jean-Pierre Lalevée 
Copyright LIST et l’auteur 


FER AE DE RON CE NE 

FEM # UTILITAIRE DISQUE NO.Z # 

FE %# CATALOGUE ETEHOU + 

RER AA MARNE AE MN RE ARE 

PRIHT'9","S CATALOGUE ETENOU " 
PRINT'4LECTURE COMPLETE OU CATALOGUE." 
PRINT'RECONNAISSANCE DES FICHIERS DETRLITS." 


CAS=CHRS 
DIM ASC4):FOR 128 TO 4:RERC AY I: :HEXT 

DATA DEL,.SEG,FRG.USR,REL:REN TyPES DE FICHIERS 

RE RARE INITIRLISATIONS DISQUE AMEN AEMMÉEAUEE 
OPEN 15,8,1S,"I&@":GOSUR een 


OPEN Z,8,2,"#":G0SUE 3e 


FEN HARMAN EME ARAN SE LEE LE DE PET PET TES" 
FRIHT#1S,. "LI" É 
PRINT#1S."B-F 


FRIHT"894 TITRE: 4 PLEFT#ÈFS,1625: "9 ID: MU:RIGHT#EFS, 2% 

PET AAA MER MEN AE EENÉS  LATALOGUE AA AAA AMENER DOME AGE 
PRINT Ag FIC #F #5 TITRE #E " 

Fais :s=1 
FRIHT#1S, "01" ï 
FRINT#1S."B-P'Z:G:GUSUE aa 

RENT +4+4+44+t++t4 ete tt EMPLACEMENT SLT YAMT 444 tt EEE 
GET#Z,F#:P=ASCCP#S+CA80 :REM PISTE 

F4 +CE$:RENM SECTEUR 


FÜR I=@ TO F:RENM IL * A & TITRES MAXI PAR BLOC 


REP HE EEE ++ TYPE DO FICHIER RL + 
PRIHT#1S. TH32+2x 
+C8#5 AND 17:TF#=A# «CE ) 
F+C0#) AND 64 THEH TFÉSLEFTSITFS,254+"#"2:REM MTSTERE L14 


RE +++ttéttt+t+té++++t+é+++ PISTE, SECTEUR AR EE 
GET#Z,MS 20=ASCCHE+CAS 
IF Ds THEH FFA:REM PLUS DE TITRES + 


PRINT ® ":TF#: 
IF O1 THEN PRINT" 
PRINT D; 


CHE+CGS » 
THEH PRINT" ">; 


PRIHT D: 


RE HE EE TITRE FICHIER ARR RSR RSS LE SSSR TS TT" 
PRINT "3 

FOR I1=1 TO 1€ 

GETH#Z,A$:PRINT A$: 

HEXT I 

PRINTUr"; 


REM +++4ttttttt++tttttttté+ HE DE SECTEURS RARE 
FRINTHIS,"B-PUZ 3: THaD+ 2m 
GET#2,L#,H$:L=ASCEL#+CRE : 2 H= 
D=H#2SE+L 

IF O1 THEN FRINT" "2 

PRINT O 

HES=HE+ CI 


CHE+CRE 


HEXT I 


FEN 444444 FIN OÙ DIFECTOR"Y HE + ++ +++ +++ 
FRIHT® 8" 3664-NS "SECTEURS LIBRES" 


FE #44 EHNEN REX SF ERREURS DISQUE LOS EEE CT TE TP7 PTT PES 
IHPUT#15,E1.E#.E3.E4 

IF E1:2@ THEH FRINT'ÆRREUR DISQUE :":PRIHT E1"."E#$", "ER", "Ed 
RETURFH 


EHQ 
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Explications du programme 


Lignes 190 à 210: initialisations 
diverses, avec en particulier mémorisa- 
tion des différents types de fichiers qu’il 
est possible de rencontrer. 

Lignes 230 à 260 : ouverture du canal 
de commande, et du canal de transfert 
de données. Une précaution a été prise : 
vérifier que tout se passe sans problème, 
grâce aux appels du sous-programme de 
lecture des erreurs. 

Lignes 280 à 330 : on a besoin de con- 
naître le titre et le numéro d’identifica- 
tion de la disquette ; ces renseignements 
se trouvent sur le secteur 0 ; on fait 
donc une entorse à la décision de ne pas 
toucher à ce secteur pour l’instant… 

A partir de la ligne 350, commence la 
lecture du catalogue proprement dit. 
Tous les renseignements détectés dans 
l’ordre de leur rencontre seront écrits : 
le type de fichier, les numéros de piste et 
de secteur de début du fichier, le titre, et 
enfin le nombre de blocs occupés. 

Ligne 370 : la première lecture doit se 
faire sur la piste 18, secteur 0 (début du 
catalogue : TITRE et ID). 

Ligne 380 : dans le tampon numéro 2, 
le bloc concerné est mis en mémoire, 
pour pouvoir être lu par la suite, soit 
256 octets. 

Ligne 390 : le pointeur qui permettra 
d’effectuer la lecture à partir de l’octet 0 
est positionné. 

Lignes 420 et 430 : les numéros de 
piste, puis de secteur du bloc à lire après 
celui-là sont extraits successivement. La 
suite doit être repétée huit fois, puisque 
huit titres au maximum sont disponibles 
dans chaque bloc. 

Lignes 480 et 490 : le pointeur est 
positionné sur l’octet concerné qui 
représente le type du fichier ; et il est 
ramassé au passage. TF$ est la variable 
du type. 

Ligne 500 : cette ligne est un peu spé- 
ciale ! Il s’agit ici du sixième type de 
fichier qui fera l’objet d’une prochaine 
étude. 

Lignes 530 à 600 : les deux octets sui- 
vants sont récupérés, puisqu'ils contien- 
nent un numéro de piste et de secteur 
dont on a besoin. Mais attention, si le 
numéro de piste est 0, cela signifie que 
tous les titres ont été lus : en ce cas, le 
travail sera très vite terminé (ligne 540). 

Lignes 620 à 670 : voici le tour des 16 
octets ASCII du titre qui sont affichés 
sans autre forme de procès. 

Lignes 700 à 750 : enfin, le pointeur 
est positionné un peu plus loin, sur les 
octets qui contiennent le nombre de 
blocs occupés par le fichier. Cette valeur 
est comptabilisée dans le compteur des 
blocs en ligne 750. 

Lignes 820 à 850 : le travail achevé, le 
nombre de secteurs restés réellement 
libres est affiché, puis les canaux qui ont 
rempli leur office sont refermés. 
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lent, difficile à structurer, pauvre en 
, etc. Peut-être trouveront:ils des 


UN BASIC JEUNE 


solutions satisfaisantes à ces problèmes 


avec le Basic récursif. 


La guerre des langages est 

impitoyable ; elle dépasse en 
horreur la lutte sans pitié que se 
livraient, si l’on en croit Gulliver, les 
petits-boutistes et gros-boutistes sur la 
meilleure façon de déguster un œuf à 
la coque ! 


Basic est, on le sait, à la fois triom- 
phant en informatique par son extrême 
diffusion, et abondamment méprisé et 
attaqué par les « puristes ». Les argu- 
ments sont toujours les mêmes (et ils 
ne manquent pas toujours de force) : 
lenteur insupportable, rarement com- 
pilable, structuration difficile, pau- 
vreté des procédures souvent réduites 
au seul GOSUB. Par exemple, Basic 
n’est pas récursif, alors que Pascal et le 
LSE (Langage Symbolique d’Ensei- 
gnement), tous deux fils d’Algol, ont 
ce luxe — également inconnu des 
Assembleurs ou des grands ancêtres 
Fortran et Cobol. 


Dialectes d’un 


langage populaire 


S’il existait bien déjà des « dialec- 
tes » récursifs de Basic, ce n’était guère 
que sur des machines très profession- 
nelles, comme le HP-9816 de Hewlett- 
Packard. Or en voici une implantation 
sur un matériel de plus grande diffu- 
sion : le remarquable HP-71B (pré- 
senté dans le numéro 2 de LIST, page 
41), sans doute promis à une grande 
notoriété, en particulier à cause de la 
puissance de son langage. 
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On annonce par ailleurs une ver- 
sion récursive d’un super-Basic, appelé 
Sioux, à venir dans quelques mois pour 
les Thomson TO7 et TO7/70 (quelques 
échos, parfois maladroits, de cette 
introduction étaient déjà parus dans la 
presse au printemps, sous le nom de 
code initial EXEL). 


En fait, l’origine du Sioux est assez 
ancienne. Développé au Laboratoire 
Central de Recherches de Thomson 
CSF, il est issu de travaux universitai- 
res français, notamment autour de 
Messieurs Arsac, Nolin, Ruggiu et 
Vasseur, aux alentours de 1974, pour 
concevoir un sur-langage pour APL (et 
aujourd’hui, Basic) destiné notam- 
ment à en accroître les possibilités de 
structuration. Il sera sans doute dispo- 
nible début 1985 sous la forme d’une 
cartouche de 16 Ko. 


L'arrivée de ces Basic prive LSE et, 
dans une moindre mesure, Pascal, 
d’une partie de leurs arguments contre 
la ‘‘ naïveté ”’ du plus populaire des 
langages. Rappelons en deux mots ce 
dont il s’agit : c’est une vieille histoire, 
qui remonte à Descartes et à sa 
méthode de décomposition d’un pro- 
blème complexe en problèmes plus 
faciles. 


Supposons que nous ayons à cons- 
truire un programme — c’est-à-dire un 
algorithme qui transforme un ensem- 
ble A de données en un ensemble R de 
résultats — tel que le passage de AàR, 
noté comme en mathématiques par une 
relation du type R = F (A), nécessite 
un grand nombre d’étapes intermédiai- 
res. Très fréquemment, l’obtention de 
F(A) exige que l’on traite des résultats 


CAE 


partiels F (A’), F (A’”’).. à partir de 
données moins riches que A. 

L’exemple le plus simple est celui 
du calcul d’une suite u(n) définie 
par récurrence : on connait u(0) et 
une règle qui donne explicitement 
u(n + 1) en fonction de u(n). Une boucle 
Basic ordinaire permet le traitement 
d’une telle récurrence (FOR I= 0 TO 
N...). On parle alors de procédure ité- 
rative. Par exemple, pour calculer la 
somme des cubes des entiers de O0 à N 
pour laquelle u(0) = O0 et u(n + 1) = 
u (n) + (n + 1), on peut se référer 
au programme |. 


Un référendum 


sur les référendums 


La situation est parfois bien plus 
complexe. Voici quelques exemples 
tout à fait classiques puisés dans les 
cours de programmation. Le premier 
concerne le ‘‘ Tri rapide *’ de Hoare 
(Quicksort en anglais), découvert en 
1962 ; une version Basic ‘‘ ordinaire ”? 
de ce tri figure dans le programme 2. 


I s’agit de ranger en ordre croissant 
N nombres réels, mis dans un tableau 
(T(1), T(2),.., T(N)). La lecture du 
programme est des plus pénibles — 
c’est un excellent exercice que de 
l’analyser complètement — mais son 
efficacité, pour N au moins égal à 50, 
est bien supérieure en moyenne à celle 
des tris plus classiques. En réalité, tout 
lecteur qui voudra prendre le temps de 
comprendre l’algorithme s’apercevra 
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qu’il s’agit en fait de ramener le pro- 
blème du tri d’une liste de N nombres à 
celui de plusieurs listes plus courtes, 
jusqu’à obtenir des sous-listes de 1 ou 
2 nombres pour lequel le problème est 
enfantin (1). 


Une telle attitude est dite récursive. 
Au lieu d’aller du simple vers le com- 
pliqué, comme dans la technique itéra- 
tive, on se tient un raisonnement du 
type : trier une liste de 48 nombres, je 
ne sais pas faire ; mais je peux la 
couper en deux sous-listes de, disons 
17 et 31 nombres, telles que toute 
valeur du premier ensemble soit infé- 
rieure à toute valeur du second, je 
n’aurai plus alors qu’à trier des listes 
plus courtes qui, à leur tour, pourront 
elles-mêmes être scindées, etc. 


On cherche à décomposer le pro- 
blème initial en tranches moins com- 
plexes, allant donc cette fois-ci du 
compliqué vers le simple. N’importe 
quel livre sur Pascal contient des ver- 
sions récursives du Quicksort rédigées 


dans ce langage, bien plus faciles à lire 
que notre programme Basic. 


Si l’on voulait imaginer une illustra- 
tion de la récursivité en politique, voici 
une suggestion — bien peu sérieuse — 
issue de la technique classique des 
« référendums sur les référendums » : 
on commence par un référendum sur 
une question quelconque ; on propose 
ensuite, chaque mois, un référendum 
portant sur la question suivante : 
« Etes-vous d’accord avec la majorité 
qui s’est dégagée au cours du référen- 
dum du mois précédent ? » 


Le score du référendum R(n) aurait 
alors une définition visiblement récur- 
sive, car il ne pourrait être calculé 
qu’en fonction des scores précédents 
aux dates 0, 1, 2... jusqu’à (n-1) ; sa 
signification objective risquerait d’être 
assez confusément perçue par l’homme 
de la rue. 


Voici un dernier exemple, moins far- 
felu, imaginé par John Mc Carthy (né 


10 
20 


INPUT “N="3;N:U=8 
FOR 1=G TO N 


30 U=I#x1I#1I+U 
48 NEXT 

5@ PRINT U 

6@ END 


Programme 2 


INPUT 
FOR I=1 TO N 
PRINT "T("5;:PRINT ]I; 
INPUT T(1) 
NEXT 
P=1:G(1)=1:D(1)=N 
G=G(P):D=D(P):P=P-1 
1=G:J=D:X=(T(G)+T(D))/2 


Programme 1 

Programme Basic itératif calculant la 
somme U(N) des cubes des entiers 
inférieurs ou égaux à N 


Programme Basic (non récursif) de Quicksort (tri rapide de Hoare) 
*N="35N:DIM T(N),G(N/2), D{(N/2) 


SPRINT 


GE 


DE 


100 IF T{J)>X THEN J=J-1:GOTO 100 
+ 110 IF I<=J THEN T=T(I)DET(I)=T(J)ET(J)=T:I=I+1:J=-J-1i 
120 IF I<=J THEN 90 
13Q 1F I<D THEN P=P+1:G(P)=1:D(P)=D 
140 IF G<J THEN D=-J:GOTO 8@ 
150 IF P<>G THEN 70 


IF T{I)<X THEN I=I1+1:GOTO 98 


FOR I=1 TO N 
PRINT TCI)3;EPRINT "5°; 
NEXT:END 


1=1: INPUT "N="35N 

IF N>100 THEN 4@ 
N=N+11:1=1+1:GOTO0 2 
N=N-—-1@:1I=1I-1 

IF 1=@ THEN PRINT N:END 
GOTO 70 


Programme 3 

Programme Basic (non récursif) 
pour calculer les valeurs de la suite 
de Mc Carthy 
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en 1927, il est bien connu comme créa- 
teur du langage Lisp spécialisé en intel- 
ligence artificielle). Il s’agit d’étudier 
les suites u(n), s’il en existe, telles que 
u(n) = n-10 si n est au moins égal à 
101, et que u(n) = u(m) avec m = 
u(n+11) dans les autres cas (on peut 
montrer qu’il y en a une et une seule, 
définie par la formule très simple : 
u(n) = max (91,n-10)). 

Le calcul de u(n) en Basic ordinaire 
est possible, même sans utiliser la rela- 
tion ci-dessus : le programme 3 donne 
une réalisation possible de l’algo- 
rithme, qui suit la définition de Mc 
Carthy. Elle n’est pas très difficile à 
comprendre, mais le rôle joué par 
l'index I n’est pas immédiat à interpré- 
ter a priori. 


Alors, 


pour ou contre ? 


En fait la bonne présentation de 
cette suite, telle qu’elle a été écrite par 
son inventeur, est évidemment récur- 
sive. Voici le programme HP-71 B cor- 
respondant : 

10 INPUT N @ DISP FNU (N) 
20 DEF FNU (N) @IF N > 100 THEN 

FNU = N-10 ELSE FNU = FNU 

(ENU (N+11)) 


L’équivalent en Sioux sur Thomson 
TO7 de la ligne 20 sera également très 
court, quelque chose comme : 

DEF F(U;N) : SI N > 100 ALORS 
U=N-10 SINON U=F (F(N+11)) IS 
FIN 


Bien entendu, une telle comparaison 
entre les listes récursives et non récursi- 
ves est très trompeuse. C’est parce que 
la suite de Mc Carthy est l’un des deux 
ou trois exemples (avec le calcul de n! 
ou des coefficients du binôme) qui sont 
« étudiés pour », qu’est si net l’avan- 
tage au profit de la récursivité. Pour 
un programme pris « au hasard », le 
gain serait bien plus minime. 


Notons qu’on démontre que tout 
programme où intervient explicitement 
une récursivité peut être transformé en 
programme jitératif, généralement 
beaucoup moins lisible, mais souvent 
plus rapide. Alors, pour ou contre la 
récursivité ? 


André WARUSFEL 


(1) On pourra trouver une description com- 
plète de ce programme dans le numéro 49 de 
l’Ordinateur Individuel (page 194) ; on en lira 
une autre version dans « Programmes Basic 
pour scientifiques et ingénieurs » d’Alan Miller, 
aux éditions Sybex (page 148), ou dans LIST 
n° 3 (page 52). 
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EST ‘un programme 


logarithmes avec vingt 
décimales. Pour cela, il 
fait appel à la 
multiprécision, aux 
mémoires tournantes, au 
“pilotage et même aux 
développements en série. 


Par rapport aux anciennes tables 

de logarithmes à 5 ou 7 décima- 
les, la fonction LOG des ordinateurs, 
ou même des calculatrices, apporte 
aujourd’hui facilité, confort, sécurité 
et précision. 

De merveilleuses petites machines 
fournissent instantanément les loga- 
rithmes naturels ou décimaux avec 
généralement 10 décimales, voire 10 
chiffres significatifs (il ne faut pas en 
effet confondre ces deux notions : par 
exemple 0,031 est exprimé avec 3 déci- 
males, mais seulement 2 chiffres signi- 
ficatifs). 
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ALGORITHMIQUE 


. GROS NUL , 


N'ARRIVE MÊME pas À 
TROUVER UN LOGARITHME 
AVEC PLUS 
DÉCIMALES ! 


DE Dix 


Mais. plus on en a, plus on en veut, 
c’est bien connu. Rechercher des loga- 
rithmes avec une précision meilleure 
que 10 décimales ne constitue pas seu- 
lement un excellent entraînement spor- 
tif, mais devient une quasi-nécessité 
dans certains calculs mettant en jeu des 
fonctions exponentielles. Pourquoi le 
calcul des factorielles par la formule de 
Stirling est-il si précaire dès que l’on 
atteint des nombres élevés ? Pourquoi 
cette méthode appliquée à l’évaluation 
de la factorielle de 50 000 000 par 
exemple, ne permet-elle d’exprimer 
raisonnablement le résultat qu’avec 


(@) MS ÿ 


VINGT DÉCIMALES 
POUR UN LOG 


BENH C'EST NORMAL. 
Moi JE NE L'Ai PAS 
ENCORE LU CET ARTICLE 
ALORS JE NE SAIS 
PAS COMMENT jL 
FAUT FAIRE, 


deux chiffres significatifs ? C’est parce 
que les logarithmes ne sont indiqués 
par la plupart des ordinateurs qu’avec 
10 chiffres significatifs. 


C’est la raison pour laquelle il fallait 
un programme pour donner les loga- 
rithmes décimaux avec 20 décimales. Il 
met en jeu plusieurs techniques, dont 
la plus connue est la multiprécision, et 
quelques autres, plus confidentielles 
(les usagers du distorseur van vogtien 
seront heureux de les découvrir). 


Ce programme est écrit en Basic 
standard. Pour s’y retrouver facile- 
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ment, les mémoires ont été assignées 


par ordre alphabétique, avec des 
exceptions : 

e N est réservé à la variable principale 
(nombre dont on veut connaître le 
logarithme) ; 

e les variables V, W, X et Y sont affec- 
tées aux constantes. 


On s’est fixé pour but de calculer les 
logarithmes décimaux des nombres 
compris entre 1 et 10 (borne supérieure 
exclue) avec 20 décimales, le nombre 
introduit pouvant comporter au plus 
10 chiffres significatifs, comme par 
exemple 6,789 314 159. 


Pour obtenir 20 décimales exactes, il 
a fallu naturellement travailler avec 


plus de 20 décimales afin de disposer 
d’une bonne sécurité quant à l’exacti- 
tude de la vingtième et dernière déci- 
male. Tous les calculs ont donc été 
effectués en double ou triple précision, 
avec 24 décimales, et arrondissement 
final à 20 décimales, d’où une incerti- 
tude de l’ordre de 104 sur le dernier 
chiffre affiché. Soit dit en passant, 
c’est bien meilleur que la précision 
offerte par un ordinateur qui exécute 
les calculs avec 12 chiffres et en affiche 
10, avec une marge d’erreur de 10? 
quant au dernier chiffre. 


Le calcul des logarithmes effectué 
par le programme est réalisé par déve- 
loppement en série : il consiste à addi- 
tionner les termes d’une suite dont les 


éléments successifs sont de plus en plus 
petits, et deviennent plus ou moins 
rapidement négligeables. 


Le nombre 


pilote 


La formule retenue est bien entendu 
celle qui converge le plus rapidement, 
autrement dit celle qui nécessite de 
retenir le minimum de termes, c’est-à- 
dire : 
log x=2X0,43429... x [((x-1)/(x+ 1)) 
+ (41/3) ((x-1) / (x + D} + (1/5) 
(&-D/(K+D})+...] avec 0,43429... 
= 1 / In 10, In désignant les logarith- 


402 H=INT(B#(1E14))/(1E14) 
Vingt décimales pour un log 484 I=A-6+H 
Programme en Basic standard 496 J=B-H+C 
E E 409 1=Gs#64+6#6 
Auteur Pierre Ladislas Gédo 
Copyright LIST et l’auteur nn 
412 M=146/5-K 
4208 O=INT(Z#I#W) /N 
18 REN = 422 Pe1#]1-0 
11 REM LOGARITHMES 438 Qn2#6+6464+1%1 
12 REM =somasuess 432 R=INT(Q#W)/W 
28 INPUT *N = "in 434 S=Q-R 
30 IF NC1 OR N)>18 THEN 20 440 T=2a#GaG47+64#la#1+1#141/S+6Ga4GaGaG4#J+6#Ga6G#6al4#] 
48 VsiE10 459 Gz=K+0+R 
50 N=1E15 455 HzM+P+S+T 
188 AmINT((1+18#L06 (N)/LOG(18))/3) 508 J=A+B+C 
102 X=1B#A-3#INT(18# (LOGIN) /LOB(18))) 518 K=SGN(A+B+C) #ABS(A+B+C) 7 
118 B=2"X 320 I=K/7+JxJ#K/9+J#J#J#J4K/11 
111 C=B/18*INT((LOB(B)/LOG(18))) 688 J=A+D 
112 Y=INT((LOG(N/C)/LOG(18))/(LOB(1:84+.5)/LOG(18))) 818 K=B+E+6 
128 D=1.04"Y 628 L=C+F+H+]I 
130 E=@ 708 A=(1E-5})#INT(J#1E5) 
140 IF Y=5 THEN Es4/V 747 B=J+-A 
150 IF Y=#6 THEN E=4,96/V 718 C=.86858 
168 FaCxD 711 D=8.9638#(1E-6) 
178 G=C#D-F+C+E 712 E=6.503#(1E-12) 
288 H=(N-F-6)/(N+F+8) 713 Fs=6,5530226#(1E-16) 
210 Im(1E-7)#(INT(H#(1E7)+.5)) 728 G=C+D 
212 Je(1E-12)#(INT(H#(1E12)+.5))-1 722 H=@=D+E 
214 K=H-1-J 723 I=E+F 
228 La(iE-4)#(INTI(N+F)#(1E4)+.5)) 730 M=AD+BC 
222 M=N+F-L 732 D=INT(MaV)/V 
238 ZaN-F-I#L-1#M-J4#L-G-G#H-J#M-K4#L-K#M 734 P=M-0 
232 O=1/(N+F+6) 736 G=INT((B#D+C#K)#N) /N 
248 Paz/(N+F+6)-0 738 R=B#D+C#K-0Q 
258 Q=INT(O#W) /W 748 S=INT((E#J+F#J+HEK+G#L)#W) /N 
252 RaINT(IK#W) /N 743 O=A+#C+0 
254 SaINT(JeV)/V 744 P=P+0+S 
268 A=1+S 746 GQ=E#J+F#+J+HaK+B#L-S+R 
262 Bnj-5+0+R 888 A=LOG(2-1/V)/LOG(18) 
264 C=(0-Q)+(K-R)+P 882 B=63981/W 
308 EmINT(I#I#(1E14)/3)/(1E14) 884 C=,1942137389/W 
302 F=l#I-3#€ 819 D=LO6(1.84-1/V) 
318 G=INT(E#(1E9)+,5)/(1E9) 812 E=98789/4 
312 L=E-6 814 F=.3548477218/W 
328 MeINT((I+3#$)#(1E7)+,5)/(1E7) 828 B=(CaX+F#Y+0) #VaV 
322 Pzl+3#J-M B22 H=INT(6+.5)/V#V 
330 G=64M 824 I=Bx\+E#Y+P-INT(B#X+E#Y+P) 
332 R=G#P4+LEN 838 M=(INT(I#V))/V 
340 DmINT(Q#V)/V 832 R=A#X+D#Y+0 
… 342 S=INT(Q#W) /W 834 RzR-INT(R)+M 
344 T=INT(R#W)/N 846 S=1+H-" 
350 UnH#H#K+H#H#0+J#J#1+J#J#J/3+F#1/3+F#J4+L4#P 908 R=R#V 
360 E=6-D+T 902 SeSavsv 
362 F=aQ-S+R-T+U 918 PRINT R,S 
408 G=INT(A#(1E4)}/(1E4) 928 80TO 20 
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ALGORITHMIQUE 


VINGT DÉCIMALES POUR UN LOG 


mes naturels (cette formule qui donne 
log x sera appelée équation 1). 


La série converge certes rapidement, 
et d’autant plus rapidement que la 
variable (x-1)/(x+1) est voisine de 
zéro (par exemple pour x = 2, il suffit 
de retenir 10 termes de la suite pour 
obtenir log 2 avec 10 décimales). Mais 
il est possible d’accélérer la conver- 
gence par une autre procédure. 


En effet, il est beaucoup plus facile 
de calculer le logarithme d’un nombre 
à partir d’un autre nombre très voisin 
qu’à partir de rien. Ainsi, au lieu de 
calculer le logarithme du nombre n, on 
calcule la différence des logarithmes de 
deux nombres voisins : n et n’. Ce der- 
nier est appelé « nombre pilote » : sa 
structure est très simple, et son loga- 
rithme est parfaitement connu. Par 
exemple, sin = 2,03, on fixe n° = 2. 
Le logarithme de 2 est calculé une fois 
pour toutes avec 25 décimales. Il ne 
reste plus alors qu’à trouver la valeur 
de A= log 2,03 - log 2 et ajouter log 2 
à À pour obtenir le logarithme de 2,03. 


Bon résultat 


avec cinq termes 


Sachant que log n - log n° = log 
(n/n’), on remplace x par n/n° dans 
l’équation 1: log (n/n’) = (2/In 
10) x [fn - n°) / (n + n°) + (1/3) 
((n-n’)/(n+n’)} + (1/5) ((n-n’)/ 
(n+n’))}+...]. Et en posant z = 
(n-n’)/(n+n’), on obtient l’éguation 
2: A = (2/In 10) x (z + (z'/3) + 
(z/5)+...). Le résultat recherché, log 
n, s’obtient alors par l’équation : log n 
= log n’ + A. 

Cette fois-ci, la variable z est très 
voisine de zéro et la série de l'équation 
2 converge encore plus rapidement que 
celle de l’équation 1. En l’occurence, 
pour n = 2,03 et n°’ = 2,onaz = 
0,007 444 168 734 49, et il suffit de 
retenir seulement deux termes de 
l'équation 2 pour obtenir À, soit log 
2,03 avec 10 décimales, et de retenir 
cinq termes pour obtenir le résultat 
avec 20 décimales exactes. 


Tout le problème consiste à trouver 
rapidement le nombre pilote n°’ en 
fonction de n, tout en veillant à ce que 
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le logarithme de n° soit aisément calcu- 
lable. Pour y arriver, on procède en 
deux étapes. 


La série 
de Renard 


Une première opération classe gros- 
sièrement toutes les valeurs possibles 
de n en 10 groupes (voir figure 1). A 
chacun de ces groupes est associé un 
nombre c, égal à une puissance de 2, 
désignée par X, positive ou négative 


consacrées au calcul de A. 
Lignes 20 à 50 : initialisation. 


10, borne supérieure exclue. 


ment, en fin de calcul. 


2, C = tranche 3. 
Lignes 300 à 362 : calcul de z?/3. 


Lignes 400 à 455 : calcul de z'/5. 


tranche 3. 


(en ne retenant que la mantisse de c 
exprimée en notation scientifique). Les 
groupes ainsi définis correspondent 
approximativement à une progression 
géométrique de raison 10%! = 1,259. 
On notera que cette classification est 
très proche de la série dite de Renard, 
base de la normalisation internatio- 
nale. 


Une deuxième opération subdivise 
chacun des groupes précédemment 
définis en six intervalles plus fins, cor- 
respondant à une progression géomé- 
trique de raison 1,04, telle que n° = c 
x 1,04". La figure 2 représente cette 
opération pour l'intervalle c=2. 


Analyse du programme 


Le programme est subdivisé en dix parties, dont les huit premières sont 


La ligne 30 rejette les entrées non valables : comme pour une table de 
logarithmes ordinaire, seuls sont acceptés les nombres compris entre 1 et 


Lignes 100 à 170 : calcul du nombre pilote n’. 

C’est aux lignes 100 à 110 que s’effectue le calcul du nombre pilote dont 
la valeur est n” =F +G. Le stockage sur deux mémoires est obligatoire, car 
n’ peut comporter jusqu’à 14 chiffres significatifs. 

Lignes 200 à 264 : calcul de z = (n-n’)}/(n+n’). 

Cette partie du programme, de même que toutes les suivantes jusqu’à 
celle portant les numéros de ligne 700 à 746, obéit à certains principes. 
Ainsi, le calcul s’effectue en multiprécision. Les résultats intermédiaires 
sont stockés en trois mémoires correspondant à trois tranches : 

e les dix premières décimales pour la tranche 1, 
e les cinq décimales suivantes pour la tranche 2, 
e les décimales après la quinzième pour la tranche 3. 

Les tranches relatives au résultat d’un calcul peuvent être de signes diffé- 
rents. Par ailleurs, afin d'économiser de précieux octets, les retenues d’une 
tranche sur la précédente ne sont pas effectuées horizontalement au fil des 
résultats intermédiaires, ce qui fait que, par exemple, la tranche 3 peut 
exceptionnellement déborder sur la quinzième décimale, et non commencer 
à la seizième. Ce n’est pas gênant, car les retenues sont effectuées verticale- 


Pour le calcul de z, on a :z = À + B + C ; A = tranche I, B = tranche 


z//3 = D+E+F; D = tranche 1, E = tranche 2, F = tranche 3. 


25/5 = G + H. La tranche 1 disparaît, et on a : G = tranche 2, H = 
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Figure 1 
Classement des valeurs possibles de n 


2,512 3,162 3,981 
0,4 0,5 0,6 


Figure 2 
Un découpage plus fin, en six intervalles 


n | 1,995 | 2,040 2,121 2,206 2,294 


2x 1,044,5 
2,386 


2x 1,0455 
2,481 


2 x 1,040 | 2x 1,041 | PE 


log n 0,3 | | 
n° 2 | 2x1,04 | 2x104& | 


2X 1,043 


2x1,04 | 


2 x 1,045 


Lignes 500 à 520 : calcul de x7/7 + 7°/9 + 11/11. 

Calcul en simple précision, car les tranches 1 et 2 disparaissent et le résul- 
tat est stocké en mémoire I. 

L'écriture de la ligne 510 est particulière : on aurait été tenté d’écrire K 
= (A + B + C) À 7, mais À + B + C peut être négatif. Et certaines 
machines refusent d’élever à quelque puissance que ce soit un nombre 
négatif. On se serait exposé dans ce cas à un message d’erreur. L'expression 
retenue est donc équivalente à K = (A + B + C) À 7. 


Lignes 600 à 620 : calcul de z + 23/3 + ...+ z11/11. 


Le résultat est stocké de la façon suivante : D = tranche 1, E = tranche 
2, F = tranche 3. 


Lignes 700 à 746 : multiplication en multiprécision. 
Calcul de À = (2/1n10) x (z + 27/3 +... + 21/11), A=O+P+Q, 
O = tranche 1, P = tranche 2, Q = tranche 3. 


Les lignes 710 à 713 stockent la valeur de 2 / In 10 en quatre tranches (C, 
D, E, F) totalisant 23 décimales. 


Lignes 800 à 840 : calcul de log n = log n + A. 

Les lignes 800 à 804 stockent la valeur de log 2 en trois tranches (A, B, C) 
totalisant 25 décimales ; les lignes 810 à 814 stockent la valeur de log 1,04 
en trois tranches (D, E, F) totalisant également 25 décimales. Les valeurs 
précises, avec 20 ou 25 décimales, des constantes particulières telles que 
1/1n 10, log 2, figurent dans les Tables Numériques Universelies de Marcel 
Boll (éditions Dunod). 

Lignes 900 à 910 : affichage. 

La version de base présente le résultat en deux tranches de dix chiffres 
(séparés par un point sans imprimante, et sur deux lignes si l'imprimante 
est connectée). Selon la convention habituelle, si une tranche comporte 
moins de 10 chiffres, compléter à gauche par le nombre de zéros nécessaires. 

Exemple : pour n = 1,2, l’afficheur indique : 791812460. 4762482772 ce 
qui se traduit par log 1,2 — 0,07918124604762482772, 

La variante 1 est réservée à l’utilisation sans imprimante. Elle affiche le 
résultat en quatre tranches de cinq chiffres ; dans notre exemple : 
7918.12460.47624.82772. 

La variante 2 est réservée à l’utilisation avec imprimante. Comme la 
variante 1, elle imprime le résultat en quatre tranches de cinq chiffres, mais 
sur quatre lignes. 

Dans le cas des variantes 1 et 2, si une tranche comporte moins de 5 chif- 
fres, compléter à gauche par le nombre de zéros nécessaires. 
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L'espace compris entre 1 et 10 est ainsi 
subdivisé en 60 micro-intervalles et 
autant de nombres pilotes. 


Quelques points doivent être souli- 
gnés : 
e le pilotage de n vers le nombre pilote 
le plus proche (par excès ou par défaut) 
est effectué automatiquement par le 
programme ; 
e le nombre pilote n’ associé à n est 
exclusivement un multiple de 2 et de 
1,04, c’est-à-dire de la forme n°’ = 2X 
X 1,04Y X 10K(X compris entre — 3 et 
6, Y compris entre 0 et 6, K 
indifférent), expression dont le loga- 
rithme peut être calculé par addition 
de multiples de log 2 et de log 1,04 que 
l’on calcule une fois pour toutes avec 
la précision voulue ; 
e le nombre n ne diffère du nombre 
pilote que de 2 % dans le pire des cas 
(exactement de VT,04 Vo), cette diffé- 
rence pouvant être positive ou néga- 
tive ; ‘ainsi, les six premiers termes de 
l'équation 2 suffiront pour donner A 
avec 25 décimales exactes (dans le cas 
le plus défavorable, le terme est de 
l’ordre de 10-?#). 


Pour avoir une précision encore plus 
grande, il suffit de rappeler la variable 
G : elle indique, après la virgule, les 
décimales qui ont été omises après la 
vingtième pour des raisons de 
sécurité... Bien entendu, elles ne sont 
pas garanties, mais les deux ou trois 
premières ont toutes les chances d’être 
exactes. Ceci pour le cas où vingt déci- 
males ne suffiraient pas ! 


Pierre Ladislas GEDO 
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LANGAGE 


DIALOGUE AVEC LOGO 


OMME avec d’autres langages, en Logo, 
l'entrée des données se fait à partir des 
périphériques et, en particulier, à partir du 
clavier, Mais ici, il n’est pas toujours nécessaire de 
passer par l'intermédiaire d'une variable. Un 
véritable dialogue s'instaure alors, à condition de 
ne pas commettre d'erreurs, 


Le langage Logo dialogue avec 

le clavier par l’intermédiaire 
d’un « tampon » : dès qu’une infor- 
mation demandée a été acquise, une 
valeur est retournée à la procédure en 
cours d’exécution. Lorsque Logo ren- 
contre une primitive de dialogue, le 
traitement est suspendu jusqu’à 
l'obtention de l'information désirée. 
Le nom de la primitive précise la 
nature de l'information : LISCAR 
pour un caractère, LISMOT pour un 
mot, LISLISTE ou LISLIGNE pour 
une liste. 


Pas 


d'intermédiaire 


Pour LISCAR, le contenu du tam- 
pon est retourné dès la frappe d’un 
caractère ; et pour les autres primiti- 
ves, il est retourné dès la frappe du 
« retour-chariot ». Il convient alors 
d’indiquer quoi faire avec l’informa- 
tion retournée. Par exemple, on peut 
l’affecter à une variable comme dans 
un langage classique. Mais on peut 


aussi, éventuellement, la traiter direc- 
tement : 


POUR DIALOGUE 
DONNE ’’REPONSE LISCAR 
SI :REPONSE = ’’A ALORS... 


Ou bien : 


POUR DIALOGUE 
SI LISCAR = ’’A ALORS... 


Mais il est toujours possible de ren- 
contrer des « bogues », de petites 
erreurs qui interrompent le bon dérou- 
lement d’un programme. Ainsi, en uti- 
lisant directement le contenu du tam- 


RAPPEL DE LA SYNTAXE LOGO 


OGO est un langage procédural. Les procédures disponibles à l’initialisation 
sont appelées primitives. Celles que vous créez sont nommées procédures. 
Une procédure commence par le mot POUR et se termine par FIN. 


En Logo, un nombre est écrit tel quel, éventuellement précédé d’un signe. Un 


mot est toujours précédé de guillemets (on ne referme pas les guillemets à la fin 


du mot). Une liste est encadrée de crochets carrés []. Les noms de variables, qui 
ne sont pas liés à leur contenu, sont des mots. Le contenu de la variable ‘‘A est 


‘A. 
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pon sans variable intermédiaire, ce 
dernier ne sera traité qu’une seule 
fois : 

POUR DIALOGUE 

SI LISCAR ?’A ALORS... 

SI LISCAR ?B ALORS... 


La troisième ligne ne sera exécutée 
que si l’on tape à nouveau un carac- 
tère. Sous cette forme, il est donc 
impossible de comparer successive- 
ment à À et à B, un caractère tapé. 


Les primitives LISCAR, LISMOT, 
LISLISTE suspendent le traitement et 
attendent une information en prove- 
nance du clavier. Pour comparer un 
caractère lu à plusieurs, il est néces- 
saire de passer par une variable inter- 
médiaire : 

POUR DIALOGUE 
DONNE REP LISCAR 
SI :REP ‘A ALORS... 
SI :REP ‘‘B ALORS... 


HW 


Il 


La nature de l'information obtenue 
est fixée par la primitive. Ainsi LIS- 
MOT retourne un MOT. C’est pour- 


quoi cette primitive n’est implantée 
que dans les versions capables de dis- 
tinguer deux types de caractères 
« espace » : le séparateur de mots et le 
caractère ordinaire. 


Par exemple, ‘‘CHAUVE SOURIS 
n’est pas, en principe, un mot Logo. Il 
le deviendra si l’on crée un caractère 
spécial (en général, CTRL Q) qui indi- 
que que le caractère suivant n’est pas un 
séparateur. Ainsi, “CHAUVE\SOURIS 
devient un mot. Pour LISMOT, le 
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caractère de fin d’information est donc 


le retour-chariot. 


Il ne faut pas oublier que l’informa- 
tion obtenue par LISMOT est un mot. 
Donc Logo introduit automatique- 
ment des caractères spéciaux CTRL Q 
devant les séparateurs. Par exemple, 3 
+ 5 sera lu comme *’3\ \ + \ 5 


La confusion 


est facile 


Erreurs dues à la primitive LISLISTE 


Faux 


POUR AVANCER POUR AVANCER 


Juste 


AVANCE LISLISTE AVANCE PREMIER LISLISTE 
POUR COMPARER POUR COMPARER 

AFR [TAPER OUI OÙ NON] AFR [TAPER OUI OÙ NON] 
SI LISLISTE = ”’OUI SI LISLISTE = [OUI] 


AFR [TAPER LE NOM CHOISI] 
DEFINIS PREMIER LISLISTE 
:PROC 


POUR NOMMER POUR NOMMER 
AFR [TAPER LE NOM CHOISI] 
DONNE “NN PREMIER LISLISTE 
SI NON :N = ‘DONNE :N 
:PROC 

Pour la procédure NOMMER , il était nécessaire de donner à l’utilisateur 
la possibilité de ne pas conserver son travail. Il a donc fallu créer une variable 
intermédiaire, contenant un mot, qui teste une liste éventuellement vide. 


On doit alors être sûr de récupérer 
un mot pour que l’analyse du tampon 


soit simple. 


La primitive la plus couramment uti- 


avec attention. Les « bogues » sont leures » permettent une intervention 
nombreuses car il est facile de confon- sur l'instruction qui va s’exécuter si 


dre listes, mots et nombres. Et LIS- une bogue est perçue auparavant. Car 


lisée est LISLISTE. L'application des Ci-dessus). 


primitives de traitement des listes au 
contenu du tampon doit donc être faite 


Les procédures À, B, C, Det E 


LISTE retourne une liste (voir encadré sans bogue, l’exécution de telles procé- 


dures ne servirait plus à rien ! 


Les « bonnes » versions Logo ont 


une primitive de pas à pas. Les « meil- Robert DAGUESSE 


AFFICHE [AVANCE :L] 


Cinq procédures à méditer étaient 
proposées dans le numéro 2 de LIST. 
POUR A :P 
COPIEDEF MOT ‘“. :P :P 
DONNE ‘“T TEXTE :P 
DONNE ‘‘V (LISTE PREMIER 
TT) 
DONNE ‘‘V (LISTE :V 
(PHRASE [ ENTREE DANS ] :P)) 
B PREMIER :T 
C SAUFPREMIER :T 
DEFINIS :P :V 
FIN 


POUR B :W 

SL :W = [] STOP 

DONNE ‘‘V LISTE :V (LISTE 
(AFR [ LA VALEUR DE ] PREMIER 
:W EST) (MOT ‘: PREMIER :W)) 

B SAUFPREMIER :W 

FIN 

POUR C :X 

SL :C = [] STOP 

DONNE “V LISTE :V (LISTE 
‘‘AFR PREMIER :X) 

DONNE ‘‘V LISTE :V D 

DONNE ‘“V LISTE :V PREMIER 
:X 

C SAUFPREMIER :X 

FIN 

POUR D 

DONNE ‘“Z LISLISTE 

RETOURNE 

FIN 

POUR E :Q 

COPIEDEF :Q MOT ‘. :Q 

EFFACE MOT “. :Q 

FIN 


Les quatre premières procédures A, 
B, C et D simulent un pas à pas. 
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Dans A, COPIEDEEF crée une procé- 
dure dont le nom est celui de la procé- 
dure à exécuter pas à pas (il est précédé 
d’un point). Cette procédure sera la sau- 
vegarde de la précédente, maintenant 
modifiée. Par exemple, A ‘CARRE 
crée la procédure-copie CARRE 

Par TEXTE, la procédure d’origine 
est alors transformée en une liste nom- 
mée T. La première liste de T est celle 
des paramètres. Le but consiste donc à 
créer une nouvelle procédure par l’inter- 
médiaire de V, variable globale, qui 
imprimera les commentaires nécessaires 
à l’exécution de chaque ligne et attendra 
un retour-chariot tapé au clavier pour 
exécuter la ligne suivante, grâce à la pro- 
cédure D. 

Par exemple : 

POUR ANGLE :L :N 
AVANCE :L 
DROITE :N 
AVANCE :L 

FIN 


Les procédures À, B, C et D créeront 

la procédure : 

POUR ANGLE :L :N 

AFFICHE [ENTREE DANS 
ANGLE] 

(AFFICHE [LA VALEUR DE :L 
EST] :L) 

(AFFICHE [LA VALEUR DE :N 
EST] :N) 

AFFICHE [AVANCE :L] 
Appel de D pour attente d’un retour- 
chariot : 

AVANCE :L 

AFFICHE [DROITE :N] 
Appel de D : 

DROITE :N 


Appel de D : 
AVANCE :L 
FIN 
L’exécution donnera : 
A ‘ANGLE 
ANGLE 10 60 
ENTREE DANS LA PROCE- 
DURE ANGLE 
LA VALEUR DE :L EST 10 
LA VALEUR DE :N EST 60 
AVANCE :L 
Attente d’un retour-chariot. 


Dès qu’il est frappé, la ligne affichée 
s'exécute et la suivante apparaît : 
DROITE :N 
Attente d’un retour-chariot pour exécu- 
ter cette ligne. Et ainsi de suite jusqu’à 
la fin. 


C’est la primitive LISLISTE qui per- 
met l’attente d’un retour-chariot et ren- 
voie un caractère vide qui n’a aucune 
influence. Ceci est une astuce pour créer 
une exécution conditionnelle soumise à 
une frappe. Seul le caractère retour- 
chariot fait continuer l’exécution de la 
procédure. 

Les procédures B et C ont été créées 
pour séparer les paramètres et les ins- 
tructions. C’est pourquoi leurs paramè- 
tres respectifs sont la première liste de T 
et tout sauf la première liste de T. 

Alors que B utilise des ordres d’affi- 
chage directs, C introduit ces ordres 
sous forme de mots, AFR étant dans ce 
cas précédé de guillemets. B et C sont 
dites récursives. 

Quant à la procédure E, elle trans- 
forme à nouveau la procédure initiale en 
ce qu’elle était et détruit la copie. C’est 
là que se termine le pas à pas. 
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LES DIX TESTS DE LIST 


MESURER LE BASIC 


OUR évaluer en partie les performances d’un 

ordinateur donné, et plus précisément 
les qualités de son Basic, nous avons retenu 
(provisoirement) dix tests. Ils permettent de 
mesurer la vitesse avec laquelle la machine 
exécute ses appels de sous-programmes et 
diverses instructions de traitement de chaînes de 
caractères, de calculs arithmétiques, d'opérations 
sur les tableaux de variables, etc. 


Les dix tests présentés ici per- 

mettent de se faire une première 
idée de la rapidité de son ordinateur. 
Mais certaines adaptations peuvent être 
nécessaires, en particulier pour la lec- 
ture, l’écriture de fichiers (tests 9 et 10) 
ou les tracés graphiques (test 8). 


Certains ordinateurs ne possèdent pas 
d'instructions graphiques sur leur 
modèle de base (Commodore 64, 
Vic 20, TRS-80 Modèle 1,...). L’exécu- 
tion du test 8 par l’utilisation d’un pro- 
gramme Basic aurait pulvérisé des 
records de lenteur. 


Par curiosité, sur le C.64, ce test a été 
effectué en utilisant la cartouche Tool 
64. Le nombre de tracés a été réduit à 
1 000 (au lieu de 10 000). Le temps 
d’exécution, 731 secondes pour 10 000, 
laisse penser que l’optimisation reste 
encore à faire. 


Le nombre de points de la résolution 
graphique a, lui aussi, son importance. 
Ainsi, sur le DAI 48K le test 8 passe de 
2 518 secondes pour une résolution de 
336 x 256 points, à 706 secondes pour 
une résolution de 72 x 65 points ; l’Elec- 
tron passe de 1276 secondes en 
640X256 points, à 299 secondes en 
160 x 256 points ; le Coco 2 passe de 
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880 secondes en 256X 192 points à 
507 secondes en 128x96 points. En 
revanche, le QX-10 reste à 67 secondes 
que la résolution soit de 320 x 200 points 
ou de 640 x 400 points. 

Les boucles FOR...NEXT sont pré- 
sentées ici sous la forme FOR...NEXT 
I. Or, la présence du nom de la varia- 
ble (I, ici) après NEXT a pour effet de 


modifier sensiblement les temps d’exé- 
cution des boucles sur les ordinateurs 
qui acceptent les deux formes NEXT ou 
NEXT I. C’est le cas par exemple du 
Commodore 64, du QX-10, du Vic 20, 
etc. Et le gain de temps est important 
quand le nom de la variable n’apparaît 
pas après NEXT. 


Il reste que les comparaisons sont dif- 
ficiles à faire. Mais certaines parentés 
existent. Ainsi, MOS et Coco 2 dispo- 
sent d’un Basic Microsoft sur proces- 
seur 6 809 ; BBC et Electron sont de la 
même famille, ainsi que Commodore 64 
et Vic 20. 


Quant au MSX testé ici, le Yeno, il 
devrait donner les mêmes résultats que 
ses « confrères » MSX : le Basic est 
« standardisé ». 


Il ne faut pas oublier que ces tests ne 
peuvent donner qu’une première idée 
des qualités de son ordinateur : gagner 
en rapidité peut parfois se traduire par 
la perte de sophistication. 


“LIST 


N° 4 - NOVEMBRE 84 


Test 1 - Boucle vide 

10 FOR I = 1 TO 10000 
20 NEXTI 

30 END 


Test 2 - Sous-programmes 
10 FOR I = 1 TO 10000 
15 GOSUB 100 

20 NEXTI 

30 END 

100 GOSUB 110 

110 RETURN 


Test 3 - Matrice 
5 DIM A(10,10) 


10 FOR I = 1 TO 10 
12 FOR J = 1TO 10 
13 FOR K = . TO 100 
15 A(I,J) = 

17 NERr ER 


Résultats des tests de 16 Basic 


18 NEXTJ 
20 NEXTI 
30 END 


Test 4 - Opérations sur les 
chaînes de caractères 

5 A$ = « LISTEST » 
10 FORI = 1 TO 10000 
15 B$ = LEFTS$(AS$,2) 
+ MIDS$(AS$,3,3) 

+ RIGHTS(AS$,2) 
NEXT I 

END 


20 
30 


Test 5 - Arithmétique 

10 FOR I = i TO 10000 
15 J = Ix7 + 3/1 

20 NEXTI 

30 END 


Test 6 - Calcul scientifique Test 9 - Ecriture de fichiers 


10 FOR I = 1 TO 10000 5 A$ = « LISTEST » 
15 = SIN (LOG(D)) 6 OPEN «O », # 1, 
20 NEXTI « FICHIER » 

30 END 10 FORI = 1 TO 10000 


PRINT # 1, A$ 
NEXT I 

CLOSE 

END 


Test 7 - Affichage 

10 FOR I = 1 TO 10000 
15 PRINT CHRS(I1) ; 

« LISTEST » ; I 
NEXT I 

END 


20 
30 


Test 10 - Lecture de fichiers 
6 OPEN «I», # 1, 
« FICHIER » 


Test 8 - Tracé d’une ligne 


graphique 10 FOR I = 1 TO 10000 
10 FORI = 1 TO 10000 15 INPUT # 1, A$ 

15 LINE(0,0)-(319,199) 20 NEXTI 

20 NEXTI 25 CLOSE 

30 END 30 END 


Test 1 Test 2 Test 3 Test 4 
(Classés par ordre alphabétique) | 


Les temps sont exprimés en secondes. 


Ordinateurs Test 5 Test 6 Test 7 Test 8 Test 9 Test 10 
Apple Ile 13 43 65 136 93 479 484 404 710 
(9 chiffres) (280 x 160) | (disquette) | (disquette) 
Atari 600 XL 2 88 18 271 204 2 040 1 766 
| (9 chiffres) (320 x 192) 
BBC T 15 32 41 57 405 114 239 1 944 1 944 
(9 chiffres) (160 x 256) | (cassette) | (cassette) 
Colour computer 2 | 14 47 69 173 116 598 168 880 998 998 
i (256 x 192) | (cassette) | (cassette) 
———— |" 
Commodore 64 15 44 75 155 323 
(320 x 200) | (disquette) | (disquette) 
DAI 48K 21 87 9 500 
(336 X 256) | (disquette) | (disquette) 
Electron 9 20 43 55 578 299 
(9 chiffres) (160 x 256) 
————— + 
HP-71 B 95 206 97 266 823 
(15 chiffres) ae his 
HX-20 25 Î 71 558 1 973 1 234 2 460 2 400 
(9 chiffres) (120 x 32) | (cassette) | (cassette) 
MO 5 16 45 1 430 
i (320 x 200) at ur 
QX:-10 21 56 146 
(320 x 200) | (disquette) | (disquette) 
TO 7 417 1 037 
(6 chiffres) (320 x 200) 
TRS-80 Modèle 1 $16 
(7 chiffres) 
L=——— 
Vic 20 63 445 369 310 
(9 chiffres) (disquette) | (disquette) 
Yeno MSX 60 1 937 1 165 1 863 1 863 
(16 chiffres) (256 x 192) | (cassette) | (cassette) 
ZX Spectrum 42 106 115 195 132 1 180 243 610 
(8 chiffres) (256 x 176) 
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INTERFAÇAGE SUR APPLE II ET Ile 


ES langages évolués de l'Apple, qu'ils 

soient interprétés (Basic Applesoft) ou 
compilés (Pascal UCSD) fournissent un excellent 
environnement pour l'obtention de 
programmes-sources clairs, lisibles et, parfois 
structurés. Cependant, certaines applications 
nécessitent une extrême rapidité d'exécution, 
ou un accès direct à des parties du système 
normalement interdites ou difficilement 
accessibles. Il est alors indispensable 
d'écrire des sous-programmes en Assembleur qui 
seront appelés à partir du langage évolué. 
Avec Basic Applesoft, un certain « bricolage » 


est de rigueur. 


L'environnement Applesoft est 

beaucoup moins « confortable » 
que celui du Pascal : pas d’éditeur, pas 
d’assembleur (le « mini-assembleur » 
des premiers Apple II n’est plus dispo- 
nible avec l'Apple I1+ muni de 
lP« auto-start »), et encore moins d’édi- 
teur de liens (« linker ») ! Avant toutes 
choses, nous allons donc nous trouver 
dans l'obligation d’acquérir un bon 
assembleur (Big Mac/Merlin, S-C 
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Macro-Assembleur, Lisa 2.5 ou DOS 
Toolkit, par ordre de préférence). Ceci 
étant réalisé, travaillons sur un exemple. 
On fait silence, on prend ses cahiers. 


Soit à «nettoyer » l’écran 
« TEXTE ». On pourrait naturellement 
écrire le programme Applesoft qui suit : 


10 FOR I1=1 TO 24 
20 PRINT 
30 NEXT I 


Evidemment, cela n’est pas follement 
rapide. Il est de loin préférable d’utili- 
ser HOME, l’un des innombrables sous- 
programmes écrits par Steve Wozniak 
— un des créateurs de l’interpréteur et 
du Moniteur Apple. 


Pour éviter | 


les interférences 


Or, 10 CALL — 936 appelle une par- 
tie de code machine du moniteur appelé 
HOME et situé à l’adresse $FC58. Alors 
pourquoi pas un CALL 64600 ? En 
vérité, cela est parfaitement possible et 
le CALL —936 est une survivance des 
temps déjà anciens où le seul langage 
disponible sur l'Apple était l’Integer 
Basic qui ne pouvait manipuler que des 
nombres compris entre —32768 et 
32767. La valeur — 936 se réfère donc 
à un déplacement à partir du sommet de 
la mémoire (un nombre positif se réfé- 
rant à la base) : 64 Ko — 64 x 1024 
octets = 65 536 octets, et 65 536 — 
936 = 64 600 = $FC 58. 


Oui, mais Steve Wozniak a cherché 
à faire court plutôt que rapide, enfin 
relativement... On peut faire mieux, 
mais plus long, c’est l’éternel problème 
(programme 1). 


Bon, mais où placer ce programme 1 
pour éviter les interférences avec le DOS 
ou le programme Basic résident ? 

Il n’est pas question de le placer en 
page zéro : elle est presque entièrement 
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utilisée par les sous-programmes du 
Moniteur, de l’interpréteur Applesoft et 
du DOS. Plusieurs solutions sont 
possibles. 


e Le placer dans la « carte langage » 
(extension mémoire 16 Ko). Par des 
PEEK ou des POKE dans la zone 
49280-49295 ($C080-$CO8F), on peut 
contrôler l’emplacement mémoire (carte 
langage ou Apple) sur lequel on lira, ou 
écrira, dans la zone $DO000-$SFFFF. 


ÉERREREÉESSSÉEEEÉSSELRIEE 
La # 
# NETTOYAGE RAFIDE DE +* 
% L'ECRAN TEXTE * 
L + 
ÉELÉEESÉÉERESESEISRESISEE 
L2 


CARACT 
#77 
+400 ,* 


ETIG 5TA 


Jin ie D prie 


iqnes 
1ganez 
ignes 
iqnes 
ignes 
1gnes 
iqgnes 
ignes 


RTE 
ASC 


CAFACT 


RERAHEEEEX 
* GENERE * 
REEXERREXX 


* 


génére un 


+ 
+ 
GENERE 


FERIQD 
TÛHE 


L 
> une 
+ 


pério éqale à 
DLUIRATH 
WAIT 
DATA 


+ 


# 
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mem 


id son dans le haut-parleur de l'Apple 
% 

* 0.,255 Féricode 

#* 0..255 Durée 

+ 

WAIT EQU $FCAS routine d'attente 

DATA EGU 80755 déplace le pointeur TXTFTE 

L ; en fin d'instruction 


zérc génére un 


L'avantage est naturellement de dispo- 
ser de 12 à 16 Ko supplémentaires, mais 
la procédure est assez délicate et reste 
du domaine du programmeur averti. 


e Le placer dans l’espace « utilisa- 
teur » de la page trois. On dispose d’un 
emplacement de 207 octets dans la page 
de $300 à $3CF (768-975) ce qui permet- 
tra d’implanter de courts programmes 
(tout le monde utilise cette zone d’où 
l’abondance des CALL 768 ($300) que 


Programme 1 


8 1 
Ü 15 
£ 2Ù 
4 22 
RE 
t fr 
S£1 
5 28 


F 


Programme 2 


Programme 3 


son blanc 


LA 


#* PASSAGE DES PFARAMETRES 
#* FIXANT LEUR PLACE EN MEMOIRE * 


+ 


KEÉREEKERERRÉELLEESÉERELLEEEEREREKES TE 


UARTAB EG $67 :; pointeur début table variables 


TÜHE LOA $C030 : excite le haut-parleur # 
TOHE! GE # 
ENE TOÜNEZ 
DEC CURATH # 
EE TONEZ 
TONEZ DE* LODY #$03 
NE TÜNEI LD 
LD* PFERIOC STA DURATH 
IF TONE LDY ##08 
TÜNES AF DATA LDA 
+ STA PERIOD 
FEFI QC: DE 1 : P# ca 
CUFATH GS 1 x OC JMF GENERE 


EBRÉEREREREMERELÉELREREÉÉERSEHERETE 


CUARTAB) ,Y 


CUARTAE) ,Y 


l’on rencontre dans les programmes 
Basic). 


e Le placer dans l’espace libre. On 
implante le programme au-dessous du 
HIMEM et au-dessus du programme 
Basic, puis on le protège en modifiant 
le HIMEM. 


Il existe naturellement bien d’autres 
emplacements possibles : dans un 
« buffer » du DOS, entre le DOS et ses 
« buffers », à la fin du programme 
Basic, dans la page deux, etc. Mais ces 
méthodes sont vraiment trop particuliè- 
res et trop compliquées à mettre en 
œuvre pour être explicitées ici. 


_ L'algorithme 


_ de Lucas 


La troisième méthode est de loin la 
plus simple à utiliser. Dans l’exemple 
précédent, notre Apple étant de 48 Ko, 
son HIMEM (plus haute mémoire dis- 
ponible) sera, avec le DOS en place, de 
$960C (38400). Le programme précédent 
étant de 32 ($20) octets devra donc être 
implanté en $9600-$20 = $95E0 (38368) 
et le HIMEM modifié dans le pro- 
gramme Applesoft (sinon, les chaînes de 
caractères étant stockées à partir du 
HIMEM, le programme serait détruit 
lors du premier stockage). On réassem- 
ble le programme avec une origine 
appropriée ($95E0) et on sauve sous le 
nom HOME : 

5 PRINT CHR$(4)x« BLOAD HOME » 

10 HIMEM : 38368 

20 CALL 38368 : REM OÙ CALL 
— 27168 


Les premiers Apple étaient fournis 


._ * 
EN x 


# 
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INTERFAÇAGE SUR APPLE II ET He 
BASIC APPELLE LANGAGE-MACHINE 


avec un manuel technique qui contenait 
notamment l’algorithme de Lucas per- 
mettant de générer des sons de période 
et de durée variables. Cet algorithme 
étant paramétré par deux variables 
(durée et période), le problème réside 
dans le passage de ces deux paramètres 
au programme machine. Rien n’est 
prévu à cet effet (programme 2). 


Une des méthodes 


les plus sûres 


En fait il existe au moins cinq façons 
d’opérer. 

e Par l’utilisation de la fonction USR 
car USR (expression) passe « expres- 
sion » à un sous-programme en langage- 
machine. L’argument « expression » est 
évalué et placé dans l’accumulateur des 
flottants (adresse SOA à $0C) et un saut 
à l’adresse SOA est alors effectué (cette 
zone doit donc contenir l’adresse effec- 
tive du programme assembleur consi- 
déré). L'expression étant mise automa- 
tiquement sous forme de réel, il nous 
faudra repasser en entier le cas échéant, 
et on ne peut passer qu’un paramètre à 
la fois. USR n’est donc pas toujours très 
pratique. 


e Par des POKE directs des valeurs 
des paramètres en mémoire : 10 INPUT 
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« DUREE » ; D :INPUT « PERIO 
DE » ; P : POKE 805, P : POKE 806, 
D : CALL 768 : REM $325 = 805 ET 
$326=806 (adresse de PERIOD et 
DURATN) 


Cette méthode est une des plus utili- 
sées et des plus sûres. Elle nécessite tou- 
tefois une certaine gymnastique lors du 
passage de nombres entiers plus grands 
que 255 (exigeant deux octets) ou de 
nombres réels. 


e Le passage des paramètres via des 
variables « Basic » dont on a fixé les 
emplacements en mémoire : 

0 P%=0 : D =0: REM LES VA 
RIABLES P ET D FIGURERONT EN 
PREMIERE POSITION DANS LA 
TABLE DES VARIABLES 

100 INPUT « DUREE » ; D% : 
INPUT « PERIODE » ; P% : CALL 
768. A la condition d’ajouter au pro- 
gramme machine l'en-tête du pro- 
gramme 3. 


Expliquons-nous : P% et D% étant 
les deux premières variables à figurer 
dans la table des variables (dont le début 
est indiqué par VARTAB $69-$6A), on 
atteindra les valeurs numériques de P% 
et D% par un adressage post-indexé : 
3 pour P% et 8 pour D% (chaque varia- 
ble, entière ou réelle, occupant cinq 
octets). 


Cette méthode, quoique plus intéres- 


sante que la première, reste un peu pri- 
mitive si l’on utilise de nombreux sous- 


programmes machine (et donc de nom- 
breux paramètres à passer). 


° L'utilisation de routines de recher- 
che des variables de l’Applesoft. 


Quand Applesoft 


rencontre l’ampersand 


Cette méthode ressemble à la précé- 
dente mais l’utilisation des sous- 
programmes internes permet d’éviter 
d’avoir à donner une place fixe aux 
variables-paramètres (programme 4). 

L’appel se fait alors simplement par : 
100 INPUT P%, D% : CALL 768 


Cette façon d’opérer est plus élégante 
que la précédente puisque le programme 
va chercher la valeur de la variable où 
elle se trouve (et peut même créer la 
variable dans la table des variables si elle 
n'existait pas auparavant). Mais ce n’est 
pas encore l’idéal puisque les variables 
paramètres sont fixées une fois pour 
toutes. 


e L'utilisation de l’« ampersand » : 
lorsque l’Applesoft rencontre le signe 
« & » (autrement dit, l’« ampersand ») 
l’interpréteur opère un saut à l’adresse 
$3F5 qui lui indique alors l’adresse à 
laquelle il doit se rendre : 
03F5 4C 00 03 JMP $300 ; 5300 = 768 
(programme 5). 


De cette façon, on pourra obliger l’in- 
terpréteur à se dérouter vers l’adresse de 
départ du programme et à interpréter 
tout ce qui suivra le signe « & » : 

10 CALL 768:REM ACTUALISA- 
TION DU & A UN JMP $300 

20 INPUT P%,D% 

30 & T (P%,D%) 


Ainsi, on pourra passer les paramè- 
tres par valeur ou par variable et ce, 
avec les variables de notre choix. 


Cette dernière méthode est de très loin 
la meilleure. Pour s’en convaincre, com- 
parer POKE 805,255 :POKE 806,255: 
CALL 768 avec & T (P%,D%). 


Son seul inconvénient est de nécessi- 
ter la présence d’un programme auxil- 
liaire destiné à « gérer » les diverses 
commandes de l’« ampersand » dans le 
cas de programmes multiples. Un moin- 


dre mal... 
Philippe FRANÇOIS 
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Programme 4 


ÉRERÉRÉSESSISÉESEESESÉEESRÉTSELSEEES 


Programme $ 


+ ce à + 
+ PASSAGES DES PARAMETRES PR  # # 
+ ROUTINES GPPLESOFT DE RECHERCHE » _# 
# DE VSFIABLES # * 
æ + * 
FÉERÉETERISIELIERELERERÉERÉSSÉRERFFÉEES 
2 L 4 
TYTRTF EAL +84 TXTPTR 
ETRGET EQU #DFEZ PTRGET 
» CHRGET 
FRMNLIM 
GETADR 
JSR FINDF AMP 
LOY #80: SYNTAX 
LDA CTXTETR) ,i SHROPRS 
STA PERI00 Aie 
JSR FINDD CHKCOM 
LDY ##01 td 
LOA CTXTPTR) , x 
STA DURATN ” 
# + 
JMP GENERE 
+ 
FINDF JSR FIND 
ASC ‘D 
HEX 00 
+ 
FINDD JSP FIND 2 
ASC ‘PY” DEPART 
HEX Qû 
L L2 
FIND FLA 
STA TXTPTR DEPI 
PLA 
STA TXTPTR+1I 
INC TXTFTR 
BNE SUITE 
INC TXTPTR+I 
SUITE JSR PTRGET 
STA TXTPTR 
STY TXTPTR#! 
RTS 
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Super 


DE VARIABLES 


EQU 
EQU 
EAU 
EAU 
EQU 
EQU 
EGU 
EQU 
EAU 
EG 


Mise 


LD 
STA 


CAN 


NOUVEAUTE “M.S.X "EN DEMONSTRATION 
MAUBERT ELECTRONIC 49, bd. St Germain. PARIS 5° TEL. 325.88.80 PLACE ET M° MAUBERT 


 CHKCLS 


+585 
$DFES 
$E1 
$CCDé7 
$E752 
SFS 
$SDECF 
$DEBE 
$DEBS 
$OEBE 


à jour de 


#>DEFART 
AMPU4+ 2 
#<DEPART 


4 AMPU4 1 


#°T';3 on vérifie 1a présence du "T" 


DEP1 
SYNTAX 


CHRGET 


+ LHKOPN 


FRMNUM 
GETADF 


| £&0t 
CTXTPTR) ,ÿ 


PERIOD 
CHKCOM 


 FRMNUM 


GETACR 


7" ##01 
CTXTPTRO,AY 


CURATH 


GENERE 


ON 


X07 et périphériques etc. 


KRERRERÉÉEEEREÉRREÉRERRÉRRERERRERLERSS 
PASSAGES DES PARANMETRES Far 
ROUTINES APFLESOFT DE RECHERCHE 


FKÉÉERKERERLÉTÉÉRÉELREIEIÉÉESÉSERESSLELE 


1‘ 


accessoires et machines à écrire électroniques Sharp-Canon 


Promotion sur Stock ! 


SHARP 
PC1245-PC1251-PC1255-PC 1350 
PC1401-1500A-1260-1261-etc. 


#* 
+ 
+ 
+ 
# 
# 


ampereand 


MEYNTÉX ERROR" 


on fait avancer le pointeur 
cn vérifie la présence de "ci? 
récupération de la 
et de son adresse 


“ariable 


on vérifie la présence de "," 


on vérifie 


HEWLETT-PACKARD 

HPT1-HP12-HP15-HP41CV 

HP41CX-HP7 1-8tc. 
CASIO 


FX700-FX702P-FX750-PB200 
PB750-etc. 
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PROGRAMMATION SYNTHÉTIQUE SUR HP-41 C 


PRENEZ LA | 
BONNE | 
CORRESPONDANCE 


< 
C3 4 
U NE HP-41 C, comme tout ordinateur, possède Gomme ga a 
LJ LA int E 
, — 
trois composantes essentielles : LES ORDRES ?4 
un clavier, un écran et de la mémoire. ÆoUT FOUT  L œ 
L # L L 
Lorsqu'on fait l'étude de sa structure intime, E 
on donne les ordres au clavier et on consulte _ 
# Li 
un résultat sur l'afficheur. Le 
Et ce que l'on voit est toujours intercepté & 
par la HP-41 C avant l'affichage. 
Parfois, de simples codes de la en avons modifié les contenus en pro- 
æ HP-41 C sont visualisés comme grammant, simplement. j + 
s’il s'agissait de fonctions, normales ou Une seconde expérience va illustrer 
non, d’un programme. plus encore ce principe. Après avoir _— 
Une petite expérience va en faire la Fai Li œ 
démonstration. Effectuons un Memory cel _ 
Lost (presser —, allumer la HP) puis la | (PRGM) 00 REG 46 _ 
séquence de pressions de touches réca- | CAT 1 immédiatement 
pitulée dans le tableau ci-contre. suivi de R/S -END. REG 46 « 
(ALPHA) 
Qu’avons-nous fait ? En employant | =— 4094 RCL 01 = 
la ‘‘bogue”” (erreur de programmation) | (ALPHA) 
fondatrice de la programmation | GTO.001, attendre 01 CL x _ 
re SST 0  RCLI2 
(PRGM) CAT 1 R/S (ALPHA) =— |" 02 LBL O1 L_ 
nous avons positionné la HP sur une | sTo 12 03 STO 12 
zone n'ayant aucun rapport avec la zone | Les indicateurs 2, 3 et 4 s'affichent = 
des programmes. Mieux, nous nous | RCL 12 04 RCL 12 
sommes placés sur les registres d’état | STO 12 05 STO 12 - 
examinés théoriquement dans LIST 2. ee es ee , STO 12 
Nous consultions les registres comme indicateur $ articné 
s’il s’agissait d’un programme, nous (PRGM) 00000 L 
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4 4 a #) a V 
ee] P 2 q LA Fr LE 
SE LXAL|+1 LXAL|ET LXAL|TI LXAL|II LXAL|OI LXAL 
SSt pst 194 [AT A IST OST 
HIT OITI 601 H | 801D | LOIA | 9014 
4 dax dax Dax Dax Oax Oax 
6€t ELA LET 9€T SET pet 
S6 v6 €£6 t6 16 06 08 
a OL9 OL9 OL9 O19 O19 OL9 OL9 OLO OL9 OLD OL9 aq 
|__| €2z | 22 | rez OCT 6IT 8IZ OIZ 607 807 
6L 8L LE 9L SL tL 89 L9 99 9 +9 
9 1vV4019/1V4019/1V4019|1V40719 1V4019/1V4079 1vV4019| 9 
SOT tot €£OT [AU A L6I 961 t61 
€9 T9 19 09 8s 
a |+I OL9 | EI OL9 | TI OL9 | 11 OLO | OT OL9 | 60 OLO 
I6I 061 68 88 L8I 98I 
Ks 9+ 
S Lt ANI OI St 44 ‘4 Tr Ip 0+ 6€ 8€ LE 9€ 
2 | v | NOQGI& lANI OLD 94 iSA Di04 DiSA 49 4S NOUX | NOUX | NOHX | WNOUX 
: SLT | per | €u TLI ILT OLI 691 891 LI 991 S9r +91 
& Î a 
S 1€ 0€ 67 87 LT 97 St 4 Et Le IT OT 
81 6 ANOL | ON 19S XI TO4V | OLSV | OA À | MAIA asqa OSI /OLS *OLS 
S D ARLON ER 1 LST 961 | Ss1 | vst | EST zSI IST OST 6pT | Sp 
Ë SI pI €I AI IT OI 60 80 LO 90 SO +0 
= 8 AGV |LdNOWd| 410 NOV | HIOV | DAT Sd AHSV V19 dd444 NL dOLS 
2 €+I HI II L OpI 6£ 8€ LET 9€ SET ET ££I da 
£ 2 P 9 q e 4 — d Jd [oO NN IN 1 
= L a12 | MAIAV | AGGS | NVAN | 40 SX | NOIS | &AFX | &A=X | X19 | XISVT| Na V4 
8. LT ZI STI A! TI rai Ê ITI OI Qui 8TT LIT 9IT 
Le) | 
È II OITI 601 H | 8019 | 2014 | 9014 | SO QG | +12 £OI 4 | ZOI V | IOIIO | 001 00 
S 9 190 AN YH SNH a-x #-q DUA INI &0=X | &0>X |X+INT| &0<X 
d III | OIT 601 801 LOT 901 SOI pol £OI to] 1OÏ 001 
AS | SETRE + 
2 S6 v6 £6 6 16 06 68 88 L8 98 s8 8 
S ( 94q NVLV | SOOV | NISV NVL SO) NIS 1-5 xOI 9071 x? SHD 
E S6 v6 £6 T6 16 06 | 68 88 L8 98 s8 +8 
6L 8L LL 9L SL pL €L TL IL 04 | 6 89 
+ d-#x Y-d HD% % ON | -SNH | +SANH — À + Z | GADX | LA<X | &ADX 
6L 8L LL 9L SL pl | EL | IL OL 69 89 
€9 t9 19 09 6$ | 8s LS 95 ss ps €s 4 
€ | SI OLIS | tI OLS | ET OLS | ZI OIS | II OLIS | OI OLS | 60 OLS | 80 OLS | L0 OLIS | 90 OLIS | $0 OLS | +0 OLS 
£9 T9 19 09 1 6$ 8s LS 95 ss ps | es 7S 
L+ 9+ Sr br ct + 10 Op 6€ 8€ LE 9€ 
t | SION | PI ION | ET TION | SI TON | 11 10% | OI TION | 60 194 | 80 TON | LO TO | 90 TO | SO TO | PO TO 
Ly . 9ÿ St th €+ Th IF Op 6€ 8€ LE 9€ 
1} _———— 
IE 0€ Î 6t 87 LT 97 St 74 €? tt | IT 07 
1 | NOGI4 | > Dax | OL | SH) X44 ° 6 8 £ 9 S r 
IE 0€ 6t 87 LT 97 [y4 4 €? ce IT [or 
SI pI £I 71 IT OI 60 80 LO 90 0 oO 
o via | €r 141 | 1 141 | II 141 | OI 1471 | 60 I4T | 80 141 | LO 1471 | 90 TT | SO IA | +0 II | EO TAT 
SI pl £I tI Il OI 6 8 L 9 S D 
4 a a 3 a CE 8 L 9 S + 
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PROGRAMMATION SYNTHÉTIQUE 


rangé en alpha la suite des lettres : ABB 
DEFGHIJKL, soit les 12 premières let- 
tres à l’exception du C remplacé par B, 
exécutons la séquence de la figure 1. 


Figure 1 


(PRGM) 
SST 
SST,.. 
SST 
SST 


— 


06 STO 12 
07 LBL 03 
23 — 

24 * 

25 * 

24 * 

25 / 
0.0000 


jusqu’à lire 
/ 
(PRGM) 


Si l’on regarde maintenant le registre 
alpha, on constate que le second B est 
devenu C. Le registre alpha étant com- 
posé de 3, 4 registres d’état (LIST n° 1), 
nous avons pu le consulter : lettre A = 
Se”, B = ‘x, C = ‘‘/”, etc., et le 
modifier RAR 


La première leçon est donc la sui- 
vante : on peut accéder à n’importe quel 
endroit de la mémoire, son contenu 
nous est livré interprété par la HP-41 
sous la forme d’une fonction — il en 
existe de bien étonnantes : XROM, 
eGOBEEP, etc. — et, enfin, on intro- 
duit un nouveau contenu comme on 
modifierait un simple programme. 


La difficulté est donc d’interpréter 
correctement ce qu’on lit — à quel code 
correspond quelle fonction — et de par- 
venir à introduire n’importe quel code 


AU SECOURS SUPER- 
-LiSOS ! Mon anima 
FAVORI EST COINCÉ. SOUS 
MON ORDINATEUR FAVORI L 

AÎDEZ-NOUS PAR 
Pitié! 


LT 
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LA BONNE CORRESPONDANCE 


en mémoire — à quelle fonction cor- 
respond quel code. Pour ce faire, on dis- 
pose d’un outil très simple : la table de 
correspondance entre les fonctions et les 
codes (1). 


Cette table est reproduite page précé- 
dente dans son intégralité. On en exa- 
minera ultérieurement les finesses. 


Savoir ‘‘quoi”” n’est pas tout, il faut 
aussi savoir ‘‘où ?””. Une seconde table, 
plutôt une carte géographique, permet 
de connaître les différentes zones dans 
lesquelles on peut travailler. Un code 
quelconque, par exemple STO 12 (code 
60 ou 3C en hexadécimal), n’a évidem- 
ment pas les mêmes signification et 
fonction selon qu’il se trouve dans un 
programme ou dans un registre d’état. 


La mémoire est vaste : 320 registres 
de 7 octets chacun. On s’y repère en 
hexadécimal en numérotant chaque 
registre, en lui donnant une adresse en 
mémoire. Le plus ‘‘bas”” est le registre 
OC0 (192 en décimal) et le plus grand 
IFF (511 en décimal), ceci pour une 
HP-41 CV avec 320 registres (512-192 


{1} Sources : l'Ordinateur Individuel n°5 21 à 
28 et n° 31, Synthetic Programming on the 
HP-41 C de WC Wickes et dont la traduction 
française est éditée par les éditions du Cagire. 


DAMNED! MAIS Où EST 
DONC CET ORDINATEUR QUE. 
MA SUPER \ISON ME VoiT PAS! 


LA-BAS 
SUPER- HosL 
ME !! 


— 320). Le tout est organisé selon la . 
carte de la figure 2. 


Figure 2 
Carte des zones de mémoire de la HP-41 
RE 
1C0 Données Module 4 
180 (sr ROO ----- Module 3 
140 Libre Module 2 
---.END.---1 Module 1 
100 Programmes 
Table 
0C0 d’assignations! 
Vide 
00F 
Registres 
000 d’état 


Nous connaissons déjà la zone des 
registres d’état (LIST n° 2), celles des 
programmes et des données sont fami- 
lières à l’utilisateur normal de la HP-41 
et la table des touches assignées est riche 
de découvertes étonnantes, mais c’est 
une autre histoire. Et si vous parcou- 
riez dès maintenant toute la mémoire de 
la HP-41 à la recherche des ‘monstres’? 
d'instructions que l’on découvre sou- 
vent au détour d’un registre perdu ? 


Gilles BRANSBOURG 
Jean-Christophe KRUST 


ADIEU SUPER-LISTOSL 
MES DEUX PUCES 
ET MA-MÊÉME NET 
REMERCIERONS JAMAIS 
ASSEZ 1 ‘Sog 1 
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LA BOÎTE 
A MALICES... 


RENEZ un programme et ôtez-en très 

soigneusement toutes les astuces, des plus 
élémentaires aux plus subtiles. Vous êtes certain 
de n’en avoir laissé passer aucune ? Bien. Que 
reste-t-il ? Rien, ou peut-être une bogue ou deux 
(tout le monde peut se tromper). En fait, tout 
programme n’est qu'une suite d'astuces. Dans les 
pages qui suivent, vous en trouverez un grand 
nombre. Certaines sont de portée très générale. 
D'autres ne valent que pour un matériel 
particulier. Mais dans tous les cas, vous aurez 
intérêt à être curieux, à fouiner dans la boite à 
malices. Même s’il ne s’agit pas de votre machine, 
vous trouverez souvent des idées à reprendre. Par 
ailleurs, vous avez sans doute vos propres 
recettes, vos façons de faire. Si ce ne sont pas 
des secrets que vous cherchez à conserver 
‘ jalousement, faites-en part au journal. Celles qui 
nous paraïitront les plus intéressantes enrichiront 
à leur tour la boîte à malices, Tous les lecteurs 
pourront ainsi en profiter. 


LIST 
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LES TRUCS 
INDISPENSABLES 


Les utilisateurs du C.64 sont 

souvent pris au dépourvu lors- 
qu’ils veulent faire exécuter par leur 
machine certaines actions spécifiques 
qui ne sont possibles qu’au prix d’une 
grande complexité du programme, ou 
même tout à fait impossibles. 


Les quelques ‘‘trucs”” rassemblés ici 
sont destinés à rendre réalisables bien 
des projets, et à faciliter la vie de tous 
les programmeurs du C.64. Vous pou- 
vez en tester certains directement au 
clavier, mais ils sont essentiellement 
utilisables dans les programmes. 
POKE 650,127... supprime la répéti- 
tion automatique des touches. 
POKE 650,128... établit la répétition 
pour toutes les touches. 

POKE 650,0... rétablit la situation nor- 
male (répétition des touches CRSR). 
POKE 808,239... supprime l'effet de la 
touche STOP. 

POKE 788,52... idem. 

POKE 808,1... rétablit le fonctionne- 
ment de la touche STOP. 

POKE 788,49... idem. 

POKE 808,225... supprime l'effet de 
STOP/RESTORE, avec pour effet 
secondaire l’empêchement de LISTer le 
programme présent en mémoire. 


: POKE 808,1... rétablit le fonctionne- 


ment normal. 

POKE 792,34:POKE 793,253... provo- 
que la perte de contrôle de l’ordinateur 
en cas de STOP/RESTORE. 

POKE 657,128... supprime l’effet de 
SHIFT/COMMODORE (passage 
majuscules-minuscules). 

PRINT CHRS$(8)... idem. 

POKE 657,0... rétablit la situation 
normale. 

PRINT CHR$(9).. idem. 

POKE 198,0: WAIT 198,1... attend la 
pression sur une touche. 

WAIT 197,64... attend le relâchement 
de toutes les touches. 

WAIT 653,1... attend la pression sur 
SHIFT. 

WAIT 653,1,1... attend le relâchement 
de SHIFT. 
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WAIT 653,2... attend la pression sur 
COMMODORE. 

WAIT 653,4... attend la pression sur 
CTRL. 

WAIT 203,4... attend la pression sur 
F1. 

WAIT 203,5... attend la pression sur 
F2. 

PRINT PEEK (203)... rend 64 si 
aucune touche n’est appuyée, sinon 
rend la valeur de cette touche. 
WAIT 203, XX... attend la pression sur 
la touche qui provoquera l’apparition 
de la valeur XX à l’adresse 203. La tou- 
che associée à cette valeur est connue 
grâce à l’instruction précédente 
(PRINT PEEK (203)). 

POKE 819,245... supprime la fonction 
SAVE. 

POKE 819,203... 
normale. 

POKE 775,200... supprime la fonction 
LIST. 

POKE 775,167... rétablit la fonction. 
POKE 808,225:POKE 818,32... sup- 
prime à la fois LIST et SAVE. 
POKE 808,237:POKE 818,85... réta- 
blit les deux fonctions. 

PRINT PEEK (43) +256*PEEK (44)... 
permet de connaître l’adresse de début 
du programme Basic. 

PRINT PEEK (174)+256+*PEEK 
(175). donne l’adresse de fin du pro- 
gramme qui vient d’être chargé en 
mémoire par LOAD. 

PRINT PEEK (152)... donne le nom- 
bre de fichiers ouverts à un instant 
donné. 


retourne à la 


PRINT CHRS$(14)..… fait passer en 
mode minuscule. 

PRINT CHRS$(142).. fait passer en 
mode majuscule. 

POKE 204,0... force le clignotement du 
curseur (pour un GET par exemple : 
POKE 204,0:POKE 198,0: WAIT 
198,1:GET A$:POKE 204,1). 

POKE 204,1... rétablit le fonctionne- 
ment habituel du curseur. 

POKE 207,1... empêche le clignote- 
ment du curseur lors d’un INPUT. 
PEEK(1) AND 16... rend 0 si le moteur 
du magnétophone est en marche, et 16 
s’il est arrêté. 


POKE 646,XX.. établit la couleur du 


texte affiché à l’écran (valeurs possibles 
pour XX : 0 à 15 inclus). 

POKE 41,8:POKE 2048,0:NEW... per- 
met d’éditer sur Commodore 3000/ 
4000/8000 un programme du C.64, 
chargé après avoir tapé cette ligne de 
trois instructions. 

POKE 53265,11:LOAD suivi de POKE 
53265,27... permet d’utiliser un lecteur 
1540 normal (lecteur VIC 20). 


Enfin, POKE 214,12:PRINT: 
PRINT « texte ».…. affiche le texte sur 
la douzième ligne de l’écran. 


Faites bon usage de tous ces trucs, 
et, pourquoi pas, faites-nous part de 
vos propres découvertes. 


Robin BOIS 


 PC-1211 ET PC-1251 


CHASSER L'ERREUR 


E mot DEBUG apparaît dans la table des codes du PC-1251 et dans le 
Basic du PC-1211. Mais il semble n’avoir aucun effet sur mon PC-1251. 
Or, debug peut être traduit par anti-erreurs. I] doit donc être bien utile. Qu’en 


est-il ? 


Laurent LECLAIRE 


Décidément, même le nom des commandes n’est pas standard : ce que 
Sharp nomme DEBUG, d’autres l’appellent TRACE (ou TRON...). 


Cette commande est particulièrement utile à la mise au point de program- 
mes : elle permet d’en suivre le cheminement ligne par ligne (et ainsi d’en détecter 
les erreurs). Ceci est vrai sur le PC-1211. Mais si le mot DEBUG apparaît bien 
dans la mémoire du PC-1251, il ne semble lui être d’aucune utilité. A moins 
que l’on puisse découvrir comment le rendre actif. 
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ALICE 


RÉALISER 
SES 
RÊVES 


Alice est un ordinateur intéres- 

sant, plutôt rapide et d’un prix 
abordable, mais son Basic est assez 
incomplet. Pour rendre les program- 
mes plus lisibles et leur écriture plus 
aisée, il faut user d’astuces, parfois 
même très élémentaires. Elles per- 
mettront de combler les quelques 
lacunes de la machine. 


Ainsi, l’utilisation de sous- 
programmes spécifiques, placés en 
début de liste et commentés par des 
REMarques, est une habitude à pren- 
dre. En leur réservant les cent pre- 
mières lignes, le programme principal 
peut être appelé par la ligne 1 et 
débuter par une REM en ligne 100. 


- | DITES , M° LAPIN, N'AUREZ 
YA VOUS PAS UNE iDÉE 


DE SOUS - PROGRAMME 


Il sera prudent, pour éviter des 
problèmes avec les boucles ou les 
variables, de faire une liste des varia- 
bles appelantes, c’est-à-dire celles qui 
vont être utilisées avant l’appel du 
sous-programme, et de convenir 
d'écrire avec des lettres doublées (II, 
JJ, ...) toutes celles qui seront utili- 
sées à l’intérieur des sous- 
programmes. 


Par exemple, pour disposer d’une 
temporisation, il suffit d’introduire 
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une ligne du type 20 FOR II=1 TOT 
: NEXT T : RETURN qui pourrait 
être appelée par ...T =150 : GOSUB 
20 (la valeur de T variant en fonction 
de la durée souhaitée pour cette tem- 
porisation). 


Autre hypothèse, vous voulez réa- 
liser un rectangle de couleur ; utilisez 
le sous-programme suivant où X et Y 
représentent la position de début du 
dessin (coin supérieur gauche), H et 
V respectivement la longueur et la 
largeur et C, la couleur. 

40 FOR II=Y TOY+V-I1 

41 FOR JJ=X TO X+H-1 

42 PRINT @ 32*[1+7JJ, 
MID$(:*...... C;1); 

43 NEXT JJ 

44 NEXT Il 

45 RETURN 


L’appel de ces six lignes se fera par 
.X=S:Y=7:H=12:V=4:C=3;: 
GOSUB 40 


Dans MIDS$(‘‘....... C1); là 
variable chaîne (entre guillemets) est 
constituée en fait des couleurs dispo- 
nibles, obtenues en frappant Shift Q 
dans la couleur désignée. Et le point- 
virgule au bout de l’expression à affi- 
cher est indispensable si l’on veut évi- 
ter que le reste de la ligne ne se colore 
en vert. 


Toujours au chapitre des couleurs, 
voici un sous-programme (à appeler 
par ...GOSUB 80) qui change la cou- 
leur de l'écran et celle du texte : 

80 J = ABS(64 — J) 
81 POKE 49151,J 


82 RETURN 
Chaque appel de ces lignes provo- 
que un changement d’affichage. 


Pour J=0, les caractères sont en noir 
sur fond vert, pour J=64 ils sont 
rouges sur fond orangé. Les afficha- 


ges des couleurs ne sont pas modifiés. : 


Un sous-programme d’attente de 
caractère est souvent très utile. 
Appelé par ...GOSUB 60, il peut être 
écrit : 

60 IF INKEY$ =” THEN 60 
61 RETURN 


Il est possible d’utiliser le caractère 
ainsi récupéré en modifiant la ligne 
61 comme suit : 

. 61 A$=INKEYS:RETURN 

Le caractère sera dès lors retourné 
dans le programme principal par la 
variable Af$. 

Il existe bien d’autres cas où l’utili- 
sation de sous-programmes spécifi- 
ques se révélera très pratique. Citons 
au hasard : 

10 REM Sous-programme d’identifi- 
cation d’une réponse OUI/NON. 
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20 REM Sous-programme permet- 
tant d’émettre des sons définis par 
des lettres (A pour LA, B pour SI, 
étc.). 

30 REM Affichage à un emplace- 
ment X,Y de l’écran. 

40 REM Identification d’un carac- 


Î 


tère aux emplacements X,Y de 
l’écran. 
Cette énumération peut sans doute 


donner des idées. Laissons à chacun 
le soin de les réaliser. 


Jacques DECONCHAT 


TO7-MO5 


JOUEZ LA COULEUR 


Pour modifier les attributs de 

couleurs d’une chaîne (carac- 
tères et fond de l'écran) sur TO7 ou 
MOS, la manipulation est simple. Il 
suffit d’un CHRS$(27) suivi d’un 
caractère ou du code ASCII de celui- 
ci (voir encadré ci-dessous). 


La syntaxe généralisée de cette 
méthode s'écrit : PRINT CHRS(27) 
+ CHR$(64+CC) + CHRS(27) + 
CHRS(80+CF) + « Chaîne à affi- 
cher dans les dites couleurs » + … 
où CC est le code de la couleur des 
caractères et CF celui de la couleur de 
l'écran. 


Arlequin 

Programme pour TO 7 et MO 5 
Auteur Jean-Paul Carré 

Copyright LIST et l’auteur 


10 INPUT ‘ENTREZ VOTRE 
CHAINE” ; A8 

20 C$ = ”” 

30 FOR 1=1 TO LEN (A$) 

40 CS = C$ + CHRS$(27) + 
CHR$(64 + RND + 7) + CHR$(27) 
+ CHRS$(80 + RND * 7) + 
MIDS(AS,I,1) 


TOUT CELA 
PROUVE 

BIEN QU'ARLE- 
ŒQUN ÉTAIT 


ON HOMME 


Les quelques lignes du programme 
Arlequin donneront une petite idée 
de ce que l’on peut faire. 


Cette façon de procéder présente, 
sur l’utilisation de l'instruction 
COLOR, l'avantage de pouvoir 
changer les couleurs au sein d’une 
même chaîne de caractères avec un 
seul PRINT. 


Pensez au casse-tête posé par les 


50 NEXT I PRINT USING ‘“% %°°! 
60 PRINT CS 
70 GOTO 10 Jean-Paul CARRE 
Codes des couleurs Codes ASCII 
CHRS$(27) + “@° = caractères noirs @ 64 
CHRS(27) + ‘‘A” = rouges A 65 
À R MB = verts B 66 
de E “C7 = jaunes C 67 
” + “D” = bleus D 68 
M + “E” = magentas E 69 
7 de: SIP cyans F 70 
a UC RE — blancs G 71 
CHRS$(27) + ‘‘P’’ = fond noir P 80 
* + “O7 = rouge Q 81 
2 D RE vert R 82 
” F S 7 = jaune S 83 
# ET? = bleu q 84 
À 4 "UT = magenta U 85 
12 4 V2 = cyan V 86 
2e + SW” = blanc W 87 
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TRS-80 


ENREGISTRER ET RAPPELER UN ÉCRAN GRAPHIQUE 


Si, comme moi, vous utilisez 

souvent une carte haute réso- 
lution pour dessiner, sur l’écran de 
votre ordinateur, des figures com- 
plexes — courbes, réseaux tracés sur 
une surface, etc. —, vous appréciez 
sûrement la possibilité de pouvoir les 
sauvegarder sur disquette de façon à 


Programme Basic G d’enregistrement 
d’un écran graphique sur disquette 


18 DIM AZ{(96@1) 


20 GET(D,:@0)-(639,239),A% 


30 OPEN"O", 1, "TOTO:1" 
40 FOR I1Z4=0 TO 96@1 

50 PRINT #1, AX(IZ) 
68 NEXT 

7@ CLOSE 

80 END 


les retrouver à la demande, en tirer 
des copies sur papier, etc. 


Le TRS-80 Modèle III peut dispo- 
ser d’un excellent écran de 240 x 640 
points, soit 153 600 pixels (la même 
carte existe pour les modèles II et 
IV). Une instruction (GSAVE) per- 
met d’enregistrer le travail, qui est 
récupéré s’il le faut par la commande 
GLOAD. Malheureusement on ne 
peut pas les utiliser sous Basic G 
(Basic graphique de Tandy), mais 
uniquement sous TRS-DOS (le 
système d’exploitation). Si on rap- 
pelle un écran par GLOAD et si l’on 
veut ensuite le modifier par exemple, 
on doit repasser en Basic G... ce qui 
a pour effet immédiat de vider la 
mémoire graphique spéciale de 
32 Ko. 

Une idée naturelle serait de mettre 
dans des mémoires l’état (ON ou 
OFF) de chaque pixel ; mais cela 
signifierait que l’on dispose de quel- 
que 150 Ko. Même 48 +32 Ko ne 
suffisent pas. C’est donc exclu. Heu- 
reusement, le Basic G possède une 
arme puissante : le couple (GET, 
PUT) qui enregistre l’état d’une por- 
tion rectangulaire de l’écran (une 
« fenêtre ») et permet d’en recopier 
un double exact à n’importe quel 
endroit (commode pour créer des 
motifs géométriques !). 


Grâce à ces instructions, deux pro- 
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grammes Basic G permettent de créer 
et d’exploiter, sur une disquette enfi- 
chée dans le second lecteur et ayant 
au moins 101 granules libres (pour 
301 enregistrements), un fichier 
séquentiel ‘“TOTO:l”, contenant 
toute l’information graphique de 
l’écran. Le temps d’exécution de cha- 


Programme Basic G de rappel d’un 
écran graphique enregistré 


10 DIM AZ(96@1) 

28 SCREEN @ 

38 OPEN"1I", 1, “TOTO:1" 
4Q FOR 14=0 TO 96@1 

sa INPUT #1, AX(1%) 
6@ NEXT 

7@ CLOSE 

80 PUT(G,@),A%;, PSET 

9@ END 


cun de ces deux programmes (sauve- 
garde et chargement de l’écran haute 
résolution) est assez long : un peu 
moins de quatre minutes. 

Il suffirait certainement d'écrire 
avec attention, en Assembleur Z 80, 
des routines d'écriture et de lecture 
du fichier TOTO sur disquette pour 
pouvoir insérer, au sein de ces pro- 
grammes Basic G, des modules en 
langage-machine. Ceux-ci ramène- 
raient les temps d’exécution à quel- 
ques secondes. Si un « mordu » veut 
se livrer à ce travail désagréable, il 
peut nous envoyer ses codes ! 


La ligne 80 du second programme 
peut être modifiée de façon à afficher 
sur l’écran l’image vidéo inversée de 
ce qui a été enregistré (les TRS-80 
n’ont malheureusement pas d’ins- 
truction spécialisée pour le faire) : il 
suffit de remplacer PSET par PRE- 
SET. 


André WARUSFEL 


ORIC 


PROGRAMMER POUR MIEUX BOUTER 


Sans mémoires de masse (dis- 

quettes, cassettes, ...), un 
ordinateur n’est pas grand-chose. En 
effet, à la mise sous tension, sa 
mémoire centrale est généralement 
vierge (certains ordinateurs, en parti- 
culier de poche, disposent eux d’une 
mémoire continue). Par contre, les 
mémoires de masse contiennent des 
fichiers et des programmes, mais 
aussi des « programmes-système » 
utiles au fonctionnement de l’ordina- 
teur et de ses périphériques. 


Un premier problème se pose 
alors : comment faire passer les 
« programmes-système » nécessai- 
res, de la mémoire de masse à la 
mémoire centrale alors que ce sont 
eux, justement, qui assurent ce pas- 
sage ? La solution consiste à intro- 
duire un « micro-programme » qui 
chargera un « chargeur », qui lui- 


même chargera le « système ». On 


‘appelle cette opération, le « bou- 


tage » (booïing, en anglais) : elle 
consiste à « bouter » le système dès 
la mise sous tension. 


Quant à l'initialisation de ce 
système, elle se fait grâce à un pro- 
gramme d’«auto-démarrage », 
l’Autostart. Il recherche la présence 
d’un périphérique de mémoire de 
masse et charge le « système 
d’exploitation » qui s’y trouve. Cette 
opération est réalisée suivant des 
standards propres à l’ordinateur. Il 
était donc facile d'y ajouter, par con- 
vention, la désignation d’un pro- 
gramme « démarré automatique- 
ment », une fois le système initialisé. 


Ainsi, après quelques secondes de 
mouvements sur les disques, on est 
directement dans le programme utili- 


N° 4 - NOVEMBRE 84 


programmer 
#. unordinateur est 
ë devenu pour vous 


un loisir, un plaisir... 
une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 
dans la conception des programmes 
qui “tourneront” sur votre machine. 
LIST vous initie aux langages informatiques 
et sélectionne les meilleurs livres pour 
progresser. LIST vous informe de l'actualité 
et vous fournit trucs, astuces et idées 
pour mieux programmer... 
Pour être sûr de ne rater aucun numéro 
et pour recevoir LIST chez vous, 
abonnez-vous! 


 Boutage 

Programme pour Oric 
Auteur Max Hagenburger 
Copyright LIST et l’auteur 


0 REM *x* BOOTUP xx* 

10 CLS 

20 POKE 49,40 ’bogue .. 
30 DOKE 18,48000 

40 PRINT ‘ 
50 PRINT 
60 PRINT 
70 PRINT 
80 PRINT 
90 PRINT 
100 
110 
120 
130 
140 
150 NEW 


:PRINT 


“2S’ SQUASH 
"‘esc”’ 
PRINT :PRINT "choix 
IF C$="A" THEN 


sateur, la première page ou le premier 
menu. 


Sur Apple, par exemple, le pro- 
gramme désigné par cette méthode de 
l’Autostart s’appelle Hello (le nom 
lui est attribué à l’initialisation de la 
disquette). Il peut lui-même lancer un 
autre programme. 


Sur Oric muni d’un lecteur- 
enregistreur de microdisque, certai- 
nes conditions doivent être remplies : 
le microdisque doit être autonome 
(maître) et contenir un programme se 
nommant ‘‘BOOTUP.COM”’ chargé 
en mode automatique. 


Pour créer un microdisque auto- 
nome (appelé ESSAIS, par exemple), 
il faut le formater et y charger le 
système (DOS VI1.1) de la manière 
suivante : 

! FORMAT 0 

Disc name ? ESSAIS 

Load … 

(formatage du microdisque ESSAIS) 


Puis, avec le « disque-système » 
dans le lecteur (C pour un seul lec- 
teur) : 

! COPY ‘“SYSTEM.DOS’”’ TO 0,C 
Load... 

(recopie du système sur le microdis- 
que ESSAIS) 


Le programme de boutage (voir ci- 
dessus) crée un programme de menu 
et de chargement pour le microdis- 
que, à condition que les programmes 
aient été sauvegardés comme ceci : 

! SAVE ‘ECRAN.COM”’, AUTO 
! SAVE ‘‘SQUASH.COM'’’,AUTO 


Mais avant tout essai, il devra être 
sauvegardé comme suit : 
! SAVE ‘‘BOOTUP.COM”’,AUTO 
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microdisque ESSAIS du 01/10/84 de Max " 


"‘A* programme À 
“’E’ ECRAN graphique 


liste du microdisque & abandon 


: "3:GET C$ 


'LOAD"PROG.A" 

IF C$="E" THEN PRINT “ECRAN" : !ECRAN 
IF C$="S" THEN PRINT *SQUASH" : ! SQUASH 
IF C$=CHR$(27) THEN PRINT :'!DIR 


Les noms de programmes appelés 
sous cette forme (un point d’excla- 
mation et un nom) et directement 
exécutés, comme ! ECRAN par 
exemple, ne doivent pas contenir de 
mot réservé du Basic ; ainsi, LOGO 
(log) ou CHIFFRE (if,fre) doivent 
être évités. 


T BOOT : {tou boute)u.tr - ur 
alex sur <a auec. de 


œ 
€ pied le. Le do et 
rerommenon awc lue güed . 


Dès la mise sous tension de l’Oric 
(ou un Reset), l’auto-démarrage du 
microdisque sera actionné sans 
aucune commande du système. Et le 


menu apparaîtra à l’écran. C’est vrai- 


ment facile de bouter ! 


Max HAGENBURGER 


PC-1500 


QUAND 
LES CONVERSIONS 
PASSENT PAR 
L'ÉCRAN 


L'ordinateur Sharp PC-1500 

calcule aussi bien en notation 
hexadécimale que décimale. Il suffit 
d’employer le signe & avant un nom- 
bre pour faire la conversion : &48 
ENTER donne bien 72. Mais essayez 
donc de programmer cette conversion 
en n’employant que le Basic. Et pour- 
tant il existe un truc tout simple qui uti- 
lise deux instructions classiques du 
Basic : GPRINT et POINT. 


L’instruction GPRINT qui allume 
une colonne de l’écran (le manuel le 
précise) accepte les arguments hexadé- 
cimaux exprimés « en toutes lettres » : 
A$ = ‘‘3A°” 

GPRINT A$ 
est correct syntaxiquement. 


L’instruction POINT, qui consulte 
l’état de l’écran, retourne, elle, un 
nombre décimal. Ainsi, programmer 
simplement : 

10 : GPRINT 5 : A=POINT 0 
rangera la valeur 5 dans la variable A. 


De même (et c’est ce qui importe 
ici) : 
10 : GPRINT ‘‘3A°° : A = POINT 0 
mettra dans A la valeur de &3A con- 
vertie en décimal : 58. 


Enfin ce petit programme : 
10 : INPUT A$ 
20 : GPRINT AS$ 
30 : A = POINT 0 
réalisera par programme la conversion 
hexadécimal-décimal souhaitée pour 


. des nombres compris entre 0 et 255 
. (&00 à &FF). 


Alain MOREL 
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DES ATTRACTEURS ÉTRANGES 


Il y a plusieurs années, la 
revue «Pour la science » 
publiait une récréation mathémati- 
que sur les attracteurs étranges. Voici 
une rapide description du phéno- 
mène : on commence par tracer une 
parabole d’équation y=4Lx(1 — x), 
puis la droite d’équation y =x (c’est- 
à-dire une diagonale à 45 degrés). 
L’intersection de ces deux graphes 
est le « point d’attraction ». Il faut 
ensuite trouver une fonction qui 
place les points de sa courbe repré- 
sentative alternativement sur la para- 
bole et sur la diagonale, soit f(f(x)). 
On obtient des « marches d’esca- 
lier » allant de l’origine au point 
d’attraction. Jusque-là, rien d’anor- 
mal direz-vous ; justement, c’est ici 
qu’apparaît le phénomène et que 
d’étranges choses se passent. Le 
système se met à osciller autour d’un 
ou plusieurs centres de gravité, de 


façon stable ou non, selon la valeur 
du paramètre L de la fonction et celle 
de x. 


Si les matheux s’expliquent le phé- 
nomène, les autres pourront intro- 
duire dans leur machine le pro- 
gramme 1 afin d’admirer le spectacle. 


Les lignes 90 à 110 tracent les axes 
et la droite d’équation y=x (ligne 
110) ; les lignes 130 à 170, la para- 
bole. 


Il faut ensuite effectuer une itéra- 
tion récursive (si, si !) : la ligne 200 
évalue la fonction. Puis, la marche 
d’escalier est tracée (lignes 220 et 
230). La valeur de Y, calculée au tour 
précédent, est alors placée dans X 
(ligne 240). On retourne à la ligne 200 
pour une nouvelle évaluation de la 
fonction. Et ainsi de suite, mais... 
pas jusqu’à l’infini car, comme nous 
le disions précédemment, le système 


18 REM HD DE DE DD DD DE DE DE DE DE DE HD HE DE DD DE ED DE DE DE DD DD EDEN DEN DE IE DEEE Programme 1 
2 REM #%x  Fnx): Y=4#Læxx(i-x) LEE 

0 REM ##%#% x est la "graine".l est ie “curseur'"### 

48 REM ### recherche de l'attracteur et iterationx* 

50 REM HD 262626 D DEEE DE DE DE DE DH DE HE DE DE DE DE DE DE DE DE DÉ DD DE DD DE DEEE DE DE DE DE NE 

60 REM 

70 REM FN YV=A4xl#zx(1-x) 

80 FRINT CHR#(12):MODE 6A:COLORG @ 12 2 8 

70 DRAW 6,8 G,YMAX 8 


108 DRAW G,G XMAX,0 8 
119  DRAW 0,0 220,200 8 
12 L=0.7 


1:0 FOR X=0.0 TO 1.0 STEF 1.0/2700.0 


140 Y=4.@*xL#xX#(1.2-X) 

150 XE=X*200.6:YE=Y*200.0 
168 DOT XE,YE 12 

170 NEXT 

188 REM 

1970 YO=0.08:X=-4E-2 

2008 Y=4.@*LxxX#(1.B-X) 


210 XE=X#200.0:YE=Yx200.0:YEU=YD*700. 0 


220 DRAW XE,YEG XE,YE 2 
23 DRAW XE,YE YE,YE 2 
240 X=Y: YB=Y 

258 GOTO 208 

268 GOTO 269 


Programme 2 EL 
20 REM HD HD DEEE DE MED HD HE DE DE DE DE DE DE DE D DE DE DE DE DE D DE DE DD DEDEDE DE DE DE DE 
306 REM ##*#% attracteur etrange de Michel HENON ### 
40 REM ##%# (c) ALAIN MARIATTE %& LIST LES 
50 REM #26 266 D DE DE DE DE DE DEEE DD DD DE D DE DE DE DE DE DD DE D DEDE DM E DE DE DE 
68 REM 
78 FRINT CHR$ (12): MODE 68: COLORG @ 1 ? = 
80 X=0.0:Y=-0.@:A4-7.0/5.0:EH=z.0/10.0 


108 D=B#X 


1:08 X=C:Y=D 
140 GOTO 96 
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Hd C=Y-AxX#X+1.0 


110 XE=C*100.8+XMAXx/2.@:YE=D#*100.@+YMAX/2.0 
12 DOT XE,YE = 


prend un équilibre plus ou moins 
complexe autour du « point d’attrac- 
tion ». 


Chacun peut trouver empirique- 


? S 


NE 


— ee 
écmen d'athackux ehange , 
Heads, ar mob - 


makaien chel Henon au 
couts d'ume expicliiom dams 


27712 parabole en dun ASF , 


ment les plus belles figures en don- 
nant au paramètre L (ligne 120) des 
valeurs différentes. Pour obtenir les 
effets les plus spectaculaires, il suffit 
de faire varier L de 0, 7 à 0,999. Les 
plus téméraires peuvent envisager 
plusieurs dérivations en cascade 
f(F(F(X))). Grand frisson garanti, mais 
arrangez-Vous pour que votre pro- 
duction ne sorte pas de l'écran : 
réduisez le pas de 200 à 100, et même 
plus encore. 


Quant au programme 2, il donne 
une représentation graphique d’un 
attracteur tiré d’une parabole, que 
nous devons à Michel Hénon 
(mathématicien célèbre, auteur d’une 
série de recherches sur les propriétés 
mathématiques de certaines fonc- 
tions comme la parabole et les équa- 
tions paramétriques). 

Le principe est le même que précé- 
demment et le résultat est une sorte 
de « boomerang » qui se parfait à 
l'infini. L'analyse mathématique 
montre que la forme se compose 
d’une infinité de sous-formes sembla- 
bles, chaque sous-élément pouvant à 
son tour se décomposer en une infi- 
nité de « sous-sous-éléments », Un 
hologramme, quoi ! 


Alain MARIATTE 
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LA RÉCRÉ DE LIST*' 


LES JEUX 
ET CASSE-TÊTE 
RMATIQUES 


ES jeux et casse-tête qui vous sont proposés 
dans cette rubrique ont plusieurs aspects. 

Tout d'abord, ils peuvent être pris sous l'angle ludique, c’est-à-dire 
qu'il s’agit de jeux, de petits problèmes plus ou moins faciles à résoudre. 
Ils ont également un aspect pratique. Ils permettent 
en effet à chacun d'exercer son agilité logique. Et il n’est pas nécessaire, 


pour trouver la solution, d’ayoir un ordinateur sous la main... 


Gagner des microsecondes 


“# L'initialisation d’un tableau est 
| une opération très courante en 
informatique. 

Par exemple, pour remettre à zéro un 
tableau de 100 éléments, appelé T, on 
peut écrire : 


101 = 0 
201 = I+1 
30 T(1) = 0 


40 if 1 < 100 then 20 


Cet extrait de programme manque 
toutefois de structure. On peut encore 
l'écrire de la manière suivante : 

10 for I = 1 to 100 
20 T(1) = 0 
30 next I 

S’il gagne en lisibilité, ce programme 
n’est pas encore le plus rapide. Ainsi, 
sur l’ordinateur que nous utilisons, les 
temps (en microsecondes, c’est-à-dire 
en millionièmes de seconde) d’exécu- 
tion de chacune des instructions sont 


* Les solutions des jeux proposés ici paraftront 


dans le prochain numéro de LIST. 
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représentés dans le tableau ci-dessous. 

Le premier des deux programmes 
s’exécutera donc en un temps égal à : 
1 fois la ligne 10 + 100 fois la ligne 20 
+ 100 fois la ligne 30 + 100 fois la 
ligne 40. Soit 460 + 71 000 + 88 000 
+ 45 000 = 204 460 microsecondes. 
Ce qui correspond environ à 0,2 
seconde. 


De la même façon, le second pro- 
gramme mettra : 100 fois la ligne 10 + 
100 fois la ligne 20. Soit 85 000 + 
88 000 = 173 000 microsecondes. 


Comme c’est souvent le cas, le pro- 


Temps d’exécution 


[_isomrer | «0 
7 


DÉSOLÉ LES GARS, MAIS GAGNER 
DES MICROSCONDES GA 
NEST PAS DU TOUT 


Affectation d’une constante à 
une variable 


Incrémentation d’une variable 


Affectation d’une constante à 
l’élément d’un tableau 


Affectation d’une constante et 
calcul de l’indice de l’élément 
d’un tableau 


Affectation de la valeur d’un 
élément à un autre élément d’un 
tableau 


T(1) = 0 ou T(D = 1 


T (+1) = 0 


T() = T(1) 


Comparaison d’une valeur 


Passage sur une boucle 
for... next 


if I < 100 then/else 


850 
par itération 


for 1=1 to N step P/next I 
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gramme le plus facile à comprendre est 
le plus rapide à l’exécution. Ce dernier 
a en effet permis de gagner 204 460 - 
173 000, soit 31 460 microsecondes. 


Toutefois, ce temps de calcul peut 
encore être amélioré, pour ne pas 
dépasser 150 000 microsecondes. En 
utilisant seulement les instructions 
dont les temps sont indiqués dans le 
tableau précédent, comment allez-vous 
programmer cette initialisation afin de 
ne pas dépasser ces 150 000 microse- 
condes ? 


Trouver les mots 


Voici dix définitions de mots uti- 
+ lisés plus ou moins couramment 
en informatique. Essayez de trouver 
les mots qui se rapportent à ces défini- 
tions. 


VINDIOU, LES VLÀ Œui PARLENT 
ENCORE AVEC DES MOTS 
QU'NOUS  AUT! ON COMPREND 


1. Représentation graphique du che- 
minement d’un programme. 


2. Logiciel de traduction d’un lan- 
gage évolué en langage-machine. 

3. Suite d’instructions d’un pro- 
gramme qui doivent être exécutées de 
façon répétitive. 

4. Partie d’un ordinateur qui permet 
de réaliser des opérations élémentaires. 

5. Unité de vitesse de transmission 
d'informations. 


6. Dispositif qui élabore un signal en 
réaction à une donnée physique. 

7. Logiciel conçu pour l’enseigne- 
ment assisté par ordinateur. 


8. Suite d’étapes nécessaires à la 
résolution d’un problème donné. 


9. Dispositif matériel où sont stoc- 
kées des informations. 


10. Action de rechercher les erreurs 
d’un programme. 


L'aléatoire encadré 


La plupart des ordinateurs dis- 
‘=: posent de la fonction RND 
(RaNDom) qui retourne un nombre 
pseudo-aléatoire entre O0 (inclus) et 1 
(exclu). 

Ce type de fonction est très utile 
pour toutes les simulations et les jeux 
qui peuvent être programmés. L’inter- 
valle de 0 à 1 n’est toutefois pas tou- 
jours celui que l’on désire avoir. 

Vous trouverez certainement une 
formule générale permettant d’obte- 
nir, à partir de cette fonction RND, un 
nombre aléatoire compris entre A 


FINALEMENT JE CROIS QUE 
C'ÉTAIT UNE BONNE iDÉE 
D'ENCADRER CE NOMBRE 


(inclus) et B (inclus). A partir de cette 
formule, vous pourrez en déduire une 
autre permettant, par exemple, de lan- 
cer un dé. 


SOLUTIONS 
DU NUMÉRO PRÉCÉDENT 


Les solutions présentées ici 
répondent aux problèmes 
posés dans le précédent 
numéro de LIST. 

Ce ne sont pas forcément 
les meilleures ! 


>vv7 
Minimum et maximum 


ee La fonction MIN (A, B) peut 
être remplacée par l’expression : 
(A + B)/2 — (ABS(A - B)}/2 où ABS 
(X ) retourne la valeur absolue de X. 

Cette expression présente l’avantage 
de ne faire apparaître aucun test de 
comparaison. De même, MAX (A, B) 
peut être remplacé par : (A+B)/2 + 
(ABS(A — B))/2. 


>»vÉ 


L'affectation, cette incomprise 


l'instruction 
s'effectue en deux 


L’exécution de 
A :=A 
temps : 
e lecture de la valeur du A situé à 
droite du symbole d’affectation ; 


e stockage de cette valeur à l’adresse 


du A situé à gauche du symbole 
d'affectation. 


Le premier A de l’instruction repré- 
sente donc une adresse, alors que le 
second représente une valeur. 


»»r9 


Sigles et abréviations 


La liste ci-dessous donne la 

signification de chaque abrévia- 
tion (ou sigle), souvent rencontrée en 
informatique : 


BIT : Binary digIT 
(chiffre binaire) 


CP/M  : Control Program/Monitor 
(programme de contrôle/ 
moniteur) 

ASCII  : American Standard Code 


for Information Inter- 
change (code standard amé- 
ricain pour l’échange 
d’informations) 

BS : BackSpace 
(espace arrière) 


SOS : Silicon On Sapphire 
(silicium sur saphir) 
CRT : Cathode Ray Tube 


(tube à rayon cathodique) 
ALGOL : ALGOrithmic Language 
(langage algorithmique) 
: Société de Services et 
d'Ingénierie en Informati- 
que 
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